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Preface 


This manual provides programmers with the information @ /BM System/3 3741 Reference Manual, GC21-5113 
needed to run programs on the 1BM System/3 Model 15 

and to use the system service programs for doing jobs @ /BM System/3 Model 15 User’s Guide to Spooling, 
such as preparing disks for use or updating system GC21-7632 

libraries. See How To Use This Manual for additional 

information. @ /BM System/3 Model 15 System Control Programming 


Macros Reference Manual, GC21-7608 


Related Publications @ /BM System/3 Overlay Linkage Editor Reference Manual, 
GC21-7561 
@ /BM System/3 Model 15 Introduction,GC21-5094 
@ /BM System/3 Multiline/Multipoint Binary Synchronous 


© /BM System/3 Disk Concepts and Planning Guide, Communications Reference Manual, GC21-7573 
GC21-7571 
Note: Information about the system control program 
@ /BM System/3 Model 15 Operator’s Guide, GC21-5075 (Program Number 5704-SC1) is in the /BM System/3 
Model 15 System Control Programming Reference Manual, 
@ /BM System/3 Model 15 System Generation Reference GC21-5077. 


Manual, GC21-7616 
@ /BM System/3 Model 15 System Messages, GC21-5076 


@ /BM System/3 Communications Control Program 
Messages Manual, GC21-5170 


@ /BM System/3 Communications Control Program 
System Reference Manual, GC21-7620 


Second Edition (September 1978) 


This is a major revision of ,and obsoletes, GC21-5162-0 and technical newsletter GN21-5550. 
Because the changes and additions are extensive, this publication should be reviewed in its 
entirety. 


Changes are periodically made to the information herein; before using this publication in 
connection with the operation of IBM systems, refer to the latest /BM System/3 Bibliography, 
GC20-8080 for the editions that are applicable and current. 


Use this publication only for the purposes stated in the Preface. 


Publications are not stocked at the address below. Requests for copies of IBM publications and 
for technical information about the system should be made to your IBM representative or to 
the branch office serving your locality. 


This publication could contain technical inaccuracies or typographical errors. Use the Reader’s 
Comment Form at the back of this publication to make comments about this publication. If 
the form has been removed, address your comments to 1BM Corporation, Publications, 
Department 245, Rochester, Minnesota 55901. !BM may use and distribute any of the infor- 
mation you supply in any way it believes appropriate without incurring any obligation what- 
ever. You may, of course, continue to use the information you supply. 


©Copyright International Business Machines Corporation 1976, 1978 


HOW TO USE THIS MANUAL 
MODEL 150 INTRODUCTION 
PART 1. OCL STATEMENTS 


INTRODUCTION TO OCL STATEMENTS 
What is OCL? 
OCL and the Job Straom 
Organization of Part 1 
Coding Rules 
Types of information 
General Coding Rules 
Statement Length é 
STATEMENT DESCRIPTIONS 
ASSIGN STATEMENT 
BSCA STATEMENT 
CALL STATEMENT 
COMPILE STATEMENT 
DATE STATEMENT 


FILE STATEMENT (SINGLE VOLUME DISK FILES) 


FILE STATEMENT (MULTIVOLUME DISK FILES) 


FILE STATEMENT (SINGLE VOLUME TAPE FILES) 


7-Track Considerations 
Tape File Statement Summary : 
Combinations of 7-Track Spacifications 


FILE STATEMENT (MULTIVOLUME TAPE FILES) 


FILE STATEMENT (MULTIPLE TAPE VOLUMES) 

Prepositioned Tapes (SEQNUM-X on the FILE 
Statement) . 

Restrictions on the Use of Multifile Tapes 
Standard Labeled Files 
Nonstandard Labeled Files 
Unlabeled Volumes 
REEL Parameter on FILE Ststement 


FILE STATEMENT (DEVICE INDEPENDENT FILES) 


HALT STATEMENT 

IMAGE STATEMENT : 
Characters from the System idput Device 
Characters from the Source Library 

INCLUDE STATEMENT 

JOB STATEMENT . 

LOAD AND LOAD * STATEMENT | 

LOG STATEMENT 

NOHALT STATEMENT 

PAUSE STATEMENT 

PRINTER STATEMENT 

PUNCH STATEMENT 

READER STATEMENT 

RUN STATEMENT 

SWITCH STATEMENT 

/& STATEMENT 

/, STATEMENT é 

*(COMMENT) STATEMENTS 

/* STATEMENT 


xi 


1-1 


1-3 
1-3 
1-3 
1-4 
1-4 
1-4 
1-4 
1-6 
1-8 

1-21 

1-23 

1-24 

1-25 

1-27 

1-29 

1-40 

1-45 

1-52 

1-53 

1-54 

1-55 


1-57° 


1-58 
1-58 
1-59 
1-61 
1-61 
1-62 
1-63 
1-65 
1-66 
1-67 
1-67 
1-69 
1-71 
1-75 
1-79 
1-82 
1-84 
1-85 
1-88 
1-91 
1-92 
1-93 
1-95 


1-99 
1-100 


Page of GC21-5162-1 
tssued 28 September 1979 
By TNL: GN21-5674 


PART 2. SYSTEM CONCEPTS AND FACILITIES 


PROGRAM FACILITIES : . 
System/3 Model 15 Programming Suni 
Program Concepts 
Source Programs 
Object Modules 
Load Modules 
Program and Partition Sizes 
Greater Than 48K Programs 
External Buffers 
FILE FACILITIES 
File Definition 
File Organization 
File Processing 
File Creation 
File Location 
Automatic File Aliosstiog., 
File Services 
Scheduler Work Area 
File Sharing 
Compatible Acca Methods for File Sharing 
DTF (Define the File) : 
SDTF (Share Define the File) . 
FSQE (File Share Queue Element) 
File Share Area . 
Doubly-Defined Files 
Considerations and Restrictions . 
General Results When the 2 or 3 Option is 
Selected for a Message 
Work Files ; 
Main Storage Assuicanen 
RPG It 
COBOL 
FORTRAN 
CCP/Disk Sort 
Basic Assembler 
Overlay Linkage Editor 
Large Index Files 
Multivolume Disk Files 
Multivolume Tape Files 
Multifile Tape Volumes 
Null Files on Tape 
Programming Considerations 
LIBRARY FACILITIES 
Library Definition 
Source Library 
Object Library 
Library Locations 
Storing Programs 
Sample Statements 
Procedures 
Example . 
Nested Procedures 
Cataloging to an Active Cinrary 
User Considerations 
SYSTEM FACILITIES 
initial Program Load ({PL) 
Program Execution : 
Job and Step Processing 


Contents 


2-1 


2-3 
2-3 
24 
2-4 
24 
2-5 
28 
2-9 
2-9 
2-11 
2-11 
2-11 
2-11 
2-12 
2-13 
2-13 
2-15 
2-15 
2-16 
2-17 
2-17 
2-17 
2-18.1 
. . 2618.1 
» . 218.1 
2-18,2 


2-19 
2-20 
2-20 
2-21 
2-21 
2-21 
2-22 
2-22 
2-23 
2-23 
2-24 
2-25 
2-25 
2-25 
2-26 
2-26.1 
2-26.1 
2-26.1 
2-27 
2-29 
2-30 
2-31 
2-32 
2-33 
2-35 
2-39 
2-41 
2-42 
2-42 
2-43 
2-44 


Contents iii 


Page of GC21-5162-1 
Issued 28 September 1979 
By TNL: GN21-5674 


External tndicators 
System Severity Codes 
Job Stream Example 
Multiprogramming 


Operating ina Multiprogramming Environment 


Multiprogramming Considerations and 
Restrictions een ATS 
Sharing Access to Added Records 
Multiprogramming Examples 
Date Support 
System Date 
Partition Date 
Interval Timer 
System Input Device 
System Log Device 
System Print Device 
System Punch Device 
System History Area 
Spooling eh 
Checkpoint/Restart 
Inquiry Program 
System Integrity 


Automatic Message Restart (Unit Record Restart) 


Unit Record Restart (System Generation 
Option) 


Extended Restart (System Generation Option) 


Main Storage Usage 
PART 3. DISK STORAGE 


DIRECT ACCESS STORAGE gS 

3340 Direct Access Storage Facility 

3344 Direct Access Storage 

Simulation Areas ce ee cae” Os 
Interchanging Data Modules (3340) 
Accessing Simulation Areas 
Assigning Simulation Areas 
Simulation Area Reassignment ; 
Number of Simulation Area Assignments 

Main Data Areas : 
Disk Space Allocation : 
Considerations and Restrictions 

Alternate Tracks ae 
File Processing Considerations 

Cylinder 0 Format aaa 
Considerations and Restrictions 

Initial Program Load (IPL) 


PART 4. SYSTEM SERVICE PROGRAMS 


INTRODUCTION 
Programming Considerations 
Control Statements ae a! 
Writing Controt Statements for System 
Service Programs 
Coding Rules ‘ 
END Control Statement ean 4 
Placement of Control Statements in the 
Job Stream Bi 3 Ri area eh ot, a 
Special Meaning of Capital Letters, Numbers, 
and Special Characters 
Device Codes 


2-48 
2-48 
2-48 
2-52 
2-53 


2-57 
2-59 
2-60 
2-63 
2-63 
2-63 
2-63 
2-64 
2-65 
2-66 
2-66 
2-66 
2-67 
2-68 
2-69 
2-69 
2-70 


2-70 
2-70 
2-71 


3-1 


3-3 
3-3 
3-4 
3-6 
3-6 
3-7 
3-7 
3-9 
3-9 
3-10 
3-10 
3-10 
3-11 
3-11 
3-12 
3-13 
3-13 


41 
4-3 
4-4 
4-4 
4-4 
45 
45 
45 


45 
4-6 


ALTERNATE TRACK ASSIGNMENT 
PROGRAM-$ALT fs 
Program Description Z 
Control Statement Summary 
Parameter Summary 
Parameter Descriptions 
PACK Parameter 
UNIT Parameter 
VERIFY Parameter 
ASSIGN Parameter 
Unconditional! Assignment 
Conditional Assignment 
OCL Considerations 
Examples ces ae 
Conditional Assignment 
Unconditional Assignment 7 
Messages for Alternate Track Assignment 
ALTERNATE TRACK REBUILD 
PROGRAM--$BUILD 
Program Description ‘ 
Control Statement Summary ea 
Parameter and Substitute Data Summary 
Parameter and Substitute Data Descriptions 
PACK Parameter 
UNIT Parameter 
TRACK Parameter 
LENGTH Parameter : 
DISP (Displacement) Parameter i) 
Substitute Data eh BS Se. fds UM AA Cou ag 
OCL Considerations 


Examples a ee ee ae ee 
CONFIGURATION RECORD PROGRAM-— 
SCNFIG . . |, BY Met ai nb es” Sot 
Program Description ae a ee ee 
Changing the Configuration Record eo ie OA” og 
Control Statement Summary . . . . , , 4 
Parameter Summary . . . , a ee 
Parameter Descriptions. . . ee 


AUTHORIZE Parameter (QcoPy) . , 
CARD Parameter (DEFCN) 


Code-Area Parameter (ASNPx) ay ay 
CYL Parameter (SPCYL) . . |, eve 8 
D Parameter (TSTAMP) @ a Ch Bee Od 
DATE Parameter (FORMAT) . Be, OBE iar de Tad 


DEVICE Parameter (LOGPx, SYINx, 

SYPCx, SYPRx) Bro ia ee ee 
EJECT or NOEJECT Parameter (LOGPx) 
ERASE Parameter (QCOPY) 

EXTENDED Parameter (READY) 

FORM Parameter (DEFFN) 

FS Parameter (SIZE) 

HALT Parameter (HLTPx) 

HALT Parameter (SHA) 

| Parameter (TSTAMP) 

IDELETE Parameter (ITYPE) , oo 
M Parameter (SPOPT) . | be Coe “ite ae 
OCL Parameter (BLANK) . 

PACK Parameter (CATLG) w® tss ive. 
PRINT Parameter (AUTST, AUTWT) . 3 
PUNCH Parameter (AUTST, AUTWT) 

P1 Parameter (SIZE) . Dy at 

P2 Parameter (SIZE) 


4-7 
4-7 
4-7 
4-8 
48 
48 
48 
48 
48 
49 
4-9 
4-10 
4-10 
4-10 
4-10 
411 


4-12 
4-12 
4-12 
4-13 
4-14 
4-14 
4-14 
4-14 
4-14 
4-14 
4-14 
4-15 
4-15 


4-17 
4-17 
4-17 
4-18 
4-20 
4-22 
4-22 
4-22 
4-22 
4-22 
4-22 
4-22.1 


4-22.1 
4-22.1 
422.1 
4-22.1 
4-22.1 
4-22.1 
4-22.1 
4-22.1 
4-22.2 
4-22.2 
4-22.2 
4-22.2 
4-22.2 
4-22.2 
4-22.2 

4-23 

4-23 


P3 Parameter (SIZE) 
RATIO Parameter (FSHARE) 
READ Parameter (AUTST) 
RETAIN Parameter (MESSAG) 
ROPTY Parameter (QCOPY) 
SEQUENCE Parameter (PRIORITY) 
SHARE Parameter (CONSOL) 
SHARE Parameter (FSHARE) 
SYS Parameter (SIZE) . 
TRACKS Parameter (SHA) 
TRACKS Parameter (SPEXT) 
UNIT Parameter (SPDSK) . 
Considerations and Restrictions 
OCL Considerations 
Examples a8 
COPY/DUMP PROGRAM-$COPY 
Program Description 
COPYPACK . 
COPYFILE 
Control Statement Suamnaey 
Parameter Summary 
Parameter Descriptions ‘ 
FROM and TO Parameters (COPYPACK) 
PACKIN and PACKO Parameters 
(COPYPACK) : 
COPYPACK Considerations 
OUTPUT Parameter (COPYFILE) 
DELETE Parameter (COPY FILE) 


REORG (Reorganize) Parameter (COPY FILE) 


LENGTH Parameter (COPYFILE) 
KEY and PKY Parameters (SELECT) 
RECORD Parameters (SELECT) 
FILE Parameter (SELECT) 
LENGTH and LOCATION Parameters (KEY) 
DATAMGMT Parameter (OUTDM) 
FROM Parameter (ACCESS) 
CYLINDER Parameter (ACCESS) 
SECTOR Parameter (ACCESS) 
TRACK Parameter (ACCESS) 
RECL Parameter (ACCESS) 
DISP Parameter (ACCESS) 

Copying Multivolume Files 
Maintaining Proper Volume Sequence 

Numbers : 
Maintaining Correct Relative Record. 
Numbers ‘ 

Direct File Attributes i 
Copying Multivolume iadescedt Files 

Tape File Considerations 

Diskette File Considerations 

Card Input Considerations 

Card Output Considerations 

File Recovery Considerations 

OCL Considerations 

Examples 

DUMP/RESTORE PROGRAM— $DCOPY 

Program Description . 

Control Statement Summary 

Parameter Summary 

Parameter Descriptions 
FROM and TO Parameters (COPYPACK) 
PACK Parameter (COPYPACK) 
SYSTEM Parameter (COPYPACK) 
BACKUP Parameter (COPYPACK) 

Dump/Restore Considerations 


4-23 
4-24 
4-24 
4-24 
4-24 
4-24 
4-24.1 
4-24.1 
4-24.1 
4-24.1 
4-241 
4-24.1 
4-24.1 
4-24.2 
4-25 
4-27 
4-27 
4-27 
4-27 
4-29 
4-31 
4-34 
4-34 


4-34 
4-34 
4-34 
4-36 
4-36 
4-36 
4-36 
4-37 
4-37 
4-37 
4-37 
4-37 
4-37 
4-37 
4-38 
4-38 
4-38 
4-38 


4-38 


4-38 
4-38 
4-38 
4-39 
4-39 
4-40 
4-41 
4-41 
4-41 
4-42 
4-62 
4-62 
4-62 
4-63 
4-63 
4-63 
4-64 
4-64 
4-64 
4-65 


Page of GC21-5162-1 
Issued 28 September 1979 
By TNL: GN21-5674 


OCL Considerations 
FILE Statement Considerations 
Messages for DUMP/RESTORE 
Examples ce ee ee ee 
FILE Sigtarneni: From Disk to Tape 
Control Statements 
FILE Statement: From Taos’ to Disk 
Control Statement: From Disk to Diskette 
Control Statement: From Disk to Tape 
Programming Considerations 
FILE DELETE PROGRAM—$DELET 
Program Description 
Deleting Files 
Freeing Space on an Ayes 
Control Statement Summary 
Parameter Summary 
Parameter Descriptions 
PACK Parameter 
UNIT Parameter 
LABEL Parameter 
DATE Parameter 
DATA Parameter 
OCL Considerations 
Examples 
Deleting One of Sevaral Files Having ‘fie. 
Same Name 
Freeing Allocated But Uiiusad: Siiace onan Kies 
FILE COMPRESS PROGRAM—$FCOMP 
Program Description 
Move and Copy Functions 
Move Function 
Copy Function 
Backup and Restore Puiétions 
Backup Function 
Restore Function 
Control Statement Summary 
Parameter Summary 
Parameter Description ‘ 
FROM and TO Parameters (COPYFILE) 
PACKIN and PACKO Parameters (COPYFILES) 
COMPRESS Parameter (COPYFILES) 
FROM Parameter (TAPEFILES) 
TO Parameter (TAPEFILES) 
LABEL Parameter (TAPEFILES) 
PACK Parameter (TAPEFILES) 
SEQNUM Parameters (TAPEFILES) 
COMPRESS Parameter (TAPEFILES) 
Considerations and Restrictions 
File Statement Considerations and Hajtectione: 
{Backup and Restore) 
OCL Considerations 
Examples 
SYSTEM HISTORY AREA DISPLAY 
PROGRAM-—$HIST 
Program Description ; 
Control Statement Summary 
Parameter Summary 
Parameter Descriptions 
HISTORY Parameter 
OCL Considerations 
Examples 
DISK INITIALIZATION PROGRAM- $INIT 
Program Description 
Types of Initialization 
Control Statement Summary 


4-65 
4-65 
4-66 
4-66 
4-67 
4-67 
4-68 
4-69 
4-70 
4-70 
4-71 
471 
4-71 
4-71 
4-72 
4-73 
4-74 
4-74 
4-74 
4-74 
4-74 
4-14 
4-75 
4-75 


4-75 
4-77 
4-78 
4-78 
4-78 
4-78 
4-78 
4-79 
4-79 
4-79 
4-80 
4-80 
4-82 
4-82 
4-82 
4-82 
4-82 
4-82 
4-82 
4-82 
4-82 
4-83 
4-83 


4-83 
4-84 
4-84 


4-93 
4-93 
4-94 
4-94 
4-94 
4-94 
4-94 
4-97 

4-100 

4-100 

4-100 

4-101 


Contents v 


Page of GC21-5162-1 
Issued 28 September 1979 
By TNL: GN21-5674 


Parameter Summary 
Parameter Descriptions 
TYPE Parameter (UIN) 
UNIT Parameter 
VERIFY Parameter 
ERASE Parameter (UIN) 
Surface Anatysis 
PACK Parameter (VOL) ‘ 
ID (Identification) Parameter (VOL) 
NAME360 Parameter (VOL) 
OLDPACK Parameter (VOL) 
OCL Considerations 
Examples ee on Me te 
Primary Initialization of Two Volumes 
Messages for Disk Initialization ar 
CHAIN CLEANING PROGRAM-$KLEAN 
Program Description . . ; 
OCL Considerations a ee ae 
FILE AND VOLUME LABEL DISPLAY 
PROGRAM-$LABEL 
Program Description 
Storage Requirements 
Control Statement Summary Me on 
Parameter Summary (Display Statement) 
Parameter Descriptions 
UNIT Parameter 
LABEL Parameter 
SORT Parameter 
Entire Contents of vToc 
Meaning of VTOC Information 
File Information Only 
Example Bowe AS a a kg 
Printing VTOC Information for Two Files 
LIBRARY MAINTENANCE PROGRAM-$MAINT 
Program Descriptions eAoe les ep ASS. 
Use of Disk Space 
Organization of This Section d 
$MAINT—ALLOCATE FUNCTION 
Uses ty Se, ee Et 
Control Statement Summary 
Considerations and Restrictions 
Parameter Summary 
Parameter Descriptions 
TO Parameter eo) SE aie 
SOURCE and OBJECT Parameters 
DIRSIZE Parameter 
SYSTEM Parameter ‘ 
HISTORY Parameter 
WORK Parameter 
PACKO Parameter 
Using the Allocate Function th Aa Bate © 
Creating a Source Library (SOURCE-number} 
Changing the Size of (Reallocating) a Source 
Library (SOURCE-number) 


Deleting a Source Library (SOURCE-0) 
Reorganizing a Source Library (SOURCE-R) 
Creating an Object Library (OBJECT-number) 
Changing the Size of (Reallocating) an Object 
Library (OBJECT-number) i Sse 
Deleting an Object Library (OBJECT-0) 
Reorganizing an Object Library (OBJECT-R) 


Compress in Place (ossecr. | 2 t) 
number 


vi 


4-102 
4-103 
4-103 
4-104 
4-104 
4-104 
4-104 
4-105 
4-105 
4-105 
4-105 
4-106 
4-106 
4-106 
4-107 
4-108 
4-108 
4-108 


4-109 
4-109 
4-109 
4-110 
4-110 
4-111 
4-111 
4-111 
4-111 
4-111 
4-113 
4-115 
4-116 
4-116 
4-117 
4-117 
4-117 
4-117 
4-118 
4-118 
4-118 
4-119 
4-120 
4-121 
4-121 
4-121 
4-121 
4-121 
4-122 
4-122 
4-123 
4-124 
4-124 


4-124 
4-125 
4-126 
4-126 
4-127 
4-127 
4-127 


4-127 


$MAINT—COPY FUNCTION 
Uses fy he Ag? £4 
Control Statement Summary 
Reader-to-Library 
File-to-Library 
Library-to-Filte 
Library-to-Library am - 
Library-to-Printer-and/or-Card 
Considerations and Restrictions 
Parameter Summary 
Library Directories . So EAs Sen oy 
Source and Object Library Directories 
System Directory 
Naming Library Entries 
Characters to Use 
Length of Name 
Restricted Names ar 
Entries with the Same Name 
Retain Types , 
Temporary Entries 
Permanent Entries 
Simulation Area Verification 
Using the Copy Function 
Reader-to-Library 
File-to-Library 
Library-to-File 
Library -to-Library Se hs 
Library-to-Printer and/or Card 
$MAINT—DELETE FUNCTION 
Uses & ye Sy ee he 
Control Statement Summary 
Considerations and Restrictions 
Parameter Summary a 
$MAINT—MODIFY FUNCTION 
Uses Pe? ow mB ay 
Considerations and Restrictions 
Control Statement Summary 
Parameter Summary Gh vas we 
Remove, Replace, Insert Parameters 
SMAINT—RENAME FUNCTION 
Uses Poa ee EE oe Os Sy 
Considerations and Restrictions 
Control Statement Summary 
Parameter Summary 
OCL Considerations 
$MAINT—EXAMPLES 


SPOOL FILE COPY PROGRAM-—$QCOPY 


Program Description 5 
Control Statement Summary 
Parameter Summary aia 
Parameter Descriptions—COPY SP 

FROM and TO Parameters 
Parameter Descriptions—COPYPRTQ 

UNIT Parameter 

FORMSNO Parameter 

JOBN Parameter 

STEPN Parameter 

LENGTH Parameter 

REMOVE Parameter 

OUTPUT Parameter 

FILE Parameter 

HEADER Parameter 

STOP Parameter 


4-128 
4-128 
4-129 
4-129 
4-129 
4-129 
4-130 
4-131 

4-131 

4-132 
4-135 
4-135 
4-135 
4-135 
4-135 
4-135 
4-135 
4-135 
4-136 
4-136 
4-136 
4-136 
4-137 
4-137 
4-137 
4-138 
4-138 
4-139 
4-146 
4-146 
4-146 
4-147 
4-148 
4-149 
4-149 
4-149 
4-150 
4-151 
4-152 
4-153 
4-153 
4-153 
4-153 
4-154 
4-155 
4-156 
4-167 
4-167 
4-168 
4-171 
4-176 
4-176 
4-176 
4-176 
4-176 
4-176 
4-176 
4-176 
4-176 
4-176 
4-177 
4-177 
4-177 


Page of GC21-5162-1 
Issued 28 September 1979 
By TNL: GN21-5674 


Parameter Descriptions-COPYPCHQ . . . .. . 4-177 Copy Jobs To or From the Reader Queue 
UNIT Parameter 2. 1. 2. wee 4-177 (COPYRDRQ). .. . toe eee 4492 
CARDNO Parameter bi Oe ahis fa cth sek, 3 4-177 Read Control Statements iFoin a File 
JOBN Parameter . . . . . . . . 4-177 (COPYCTRL) . . . ty Hes Mes. 48 4-194 
STEPN Parameter oe ot Nee te Gt, oe te tee ART TE Copy a Display of the Status of the Spool 
REMOVE Parameter Re OM er OS ie, Ae eS a 4-177 Queues (DISPLAY) . .. . . . 6 64-194 
OUTPUT Parameter . . . . . ww ee 4-178 Restore Print or Punch Queue Records From a 
FILE Parameter je ie. Maar Th Seen Cale 2S tet eee 4-178 File (RESTORE) os ook ee 4-195 
HEADER Parameter . . © © . . . - +.) 4-478 Copy Selected Job Steps From ‘One Spool File 
STOP Parameter. . nae a, lee % 4-178 to Another (COPYQ) . . . ih 4-195 
Parameter Descriptions-COPYRDRQ bog ge ee: | TTB CHANGE THE AUTHORIZ FILE (AUTHORIZE) | . . 4196 
UNIT Parameter 2. 2. ww ee ee 4-178 Authorization Fields . . . . . . e + +. 4196 
RECL Parameter . . . . . ew ee 4-178 Create Authorization Record . . . . . . «4196.2 
INPUT Parameter das Je WE, & 2 oe BD eo 4-178 Change Authorization Record toe we ee 4196.2 
FILE Parameter ©. 7 ee eee ee 4-179 Delete Authorization Record . . . . . . « « 4196.2 
KEY Parameter Baten de is. WG AEs seas tue et Se 4-179 ASSIGN A CLASS NUMBER TO A 
LOKEY Parameter. . 7 we wee ee 4179 PROGRAM (CLASSIFY) . . . . . - + + « 4196.3 
HIKEY Parameter ee Ge eG oe as aa <p TIO OCL Considerations . . - - - ee + + e+ 4196.5 
LOREC Parameter 6. ody oth tas Heh NB tes ae , Ee 4-180 Examples 8. . . . 4196.5 
HIREC Parameter Soe ee ee ee ee 4180 Using the Spool File ‘Copy Program Under cop)... 4-202.1 
OUTPUT Parameter . . . . . . wee 4-180 Program Request . . Coe ee ew ee 6 4-202.2 
JOBN Parameter 2. 2. 2. 7. ew eee 4-180 User Authorization ae . 4-202.2 
PARTITION Parameter © . . . . . . . «4-180 Using the Spool File Copy Pronrar ‘fom: a Teahinel . 4-202.3 
REMOVE Parameter : soe ee ee 4-180 Responding to Error Messages  . . « «+ ee 4208 
Parameter Descriptions— —COPYCTRL ee nenat <dn> Sy wind as 4-181 Placing Jobs on the Reader Queue from 
FILE Parameter ce SS wo Vip. hi Aap 225d 4-181 aTerminal . . . Menke a ae ee oh 8 See ae 4-203 
Parameter Descriptions— DISPLAY a 8S Oa Te de ae 4-181 Displaying the Spool Gicide eg hat. Mom 30.3 4-203 
UNIT Parameter 2. 2 we we ee 4-181 CCP Assignment Set . . Jad. We 4-204 
OUTPUT Parameter... . . . . 4-181 How to Request $QCOPY From a Terminal Ae be 4-205 
FILE Parameter a eheB ma ah ge GY Se Eo eer | 4-181 Examples . . A vee 4-206 
QParameter . woe ee ee 4181 Considerations for Tairainatine the Spool File 
Parameter Descriptions—R ESTORE on TRS yan <fOo x5 4-182 Copy Program Under CCP . . . . . we 4-206 
FILE Parameter. 1 1 7 eee ee 41882 RECOVER INDEX PROGRAM-—$RINDX . oe ee 4-208 
JOBN Parameter . 2. 1. 1. ee ee 4-182 Program Description . . . . - ee 4-208 
STEPN Parameter Poe ee ee ee ee 4182 File Identification Co ee ee ee 45209 
FORMSNO Parameter voip og an ses eg a an 8RNB2 OCt Considerations . . toe ee we 4290 
CARDNO Parameter owe GR ewe te a A182 Considerations and Restrictions toe ee eee 42210 
STOP Parameter . . . . 2 ee es 4-182 Examples . . yo ee ee ee Re ONS 4-211 
OUTPUT Parameter . . . . 1 wee ee 4-182 REASSIGN ALTERNATE “TRACK 
UNIT Parameter... Re ae ee tae eS UE? 4 4-182 PROGRAM-$RSALT . . . 2. eet 4-212 
Parameter Descriptions-COPYQ ae hep We ge le 4-183 Program Description 2. 2. ee ee es 4-212 
QParameter «2. we ee es 4-183 Control Statement Summary yeh, au} si. cao Oe 4-212 
FROM Parameter Fo ig «hough: Ge wets a ee es 4-183 Parameter Summary . . 2) ee 4-213 
TO Parameter ie Aer We SEE Se ak, Ue ME we OS 4-183 Parameter Descriptions . . . . . . + «© + + 4-213 
JOBN Parameter 2 2. 7 ee ee eee A188 UNIT Parameter 2. ww eee 4218 
STEPN Parameter Sa ng er ky er a ee OR 4-183 PACK Parameter . . tap cal 4 4-213 
REMOVE Parameter a a SIMULATION AREA PROGRAM-$SCOPY Lo.) 4216 
PARTITION Parameter © 6. ee ee es 4-183 Program Description . 2. ©. ee ee ee 4-216 
PRIORITY Parameter av, ve a a 4-183 Control Statement Summary Sg. ok, By Se ap tee od 4-217 
FORMSNO and CARDNO Parsidatar Beak tent Js 4-183 Parameter Summary. Pkt tye, an ngs oe 4-219 
Parameter Descriptions-AUTHORIZE - - - + + > 4-183 Parameter Descriptions -COPY AR EA we lat thay a" an 4-222 
LIST Parameter. . woe eee ww 4183 FROM and TO Parameters . . . . . . = + 4-222 
Parameter Descriptions—CLASSIFY kh fy , Bo Sem cee Le 4-184 PACK Parameter . . . . . . ee eee 4-222 
PROGRAM Parameter. . . . . . - e + = 4-184 AREA Parameter i mts Mas Gk ie ae? Son atte Ye 4-222 
UNIT Parameter. 2... 0. 0. eee et 4-184 TONAME Parameter Etat ae en. Met me wtdtoy 4-222 
CLASS Parameter . . . . 2. ee tet 4-184 SYSTEM Parameter . . 2. an tut Ae cht acd 2 4-222 
LIBRARY Parameter . 2. 2. . . . 1 ee + 4-184 Parameter Descriptions-CLEAR At. gleny if CE. ood 4-222 
PACK Parameter. - ee ee 4-184 FROM Parameter ne te BCE OE Le es GR cE) 7AH222 
Spoo! File Considerations and Restrictions oe ew ee) 4184 PACK Parameter . . . . 2.) eee es 4-222 
FILE Requirements . . . . . . . «© + ~ 4-184 AREA Parameter 4 an ame aokes af ae > © 4222 
Partition Size Requirements . . a ee ee 4-184 CLRNAME Parameter eke a hoe, ale Meh te Pw 4-222 
Copy the Entire Spool File (COPYSP) soe ew ee) 4184 1D Parameter . . 2. ee ee 4-222 
Copy Selected Job Steps from the Print TYPE Parameter... SEP Sng SH 4-223 
Queue (COPYPRTQ) . . . 2 oe eee 4184.1 Parameter Descriptions— NEWNAME. i ae Aes 4p 4-223 
Copy Selected Job Steps from the Punch TO Parameter BS tee igh Sih. Wee yes gi, Taste aie Fe wd 4-223 
Queue (COPYPCHO).. .-. . . . . . ~~ ~~) 4-190 PACK Parameter . 2. 2... ee ee ee 4-223 


Contents vii 


Page of GC21-5162-1 
Issued 28 September 1979 
By TNL: GN21-5674 


AREA Parameter 
ID Parameter 3 
SYSTEM Parameter 
CLRNAME Parameter ‘ 
Parameter Descriptions—COPY IPL 
FROM and TO Parameters 
PACK Parameter 
TONAME Parameter be 
Parameter Descriptions—NAMES 
PRINT Parameter ; 
Parameter Descriptions-MOVE 
FROM and TO Parameters 
PACK Parameter 
AREA Parameter 
TONAME Parameter 
OCL Considerations 
Examples ee ee ee eee eee 
TAPE INITIALIZATION PROGRAM-$TINIT 
Program Description 3 
Control Statement Summary 
Parameter Summary 
OCL Considerations 
Printout of Volume Label 
Messages for Tape Initialization 
Meaning of Volume Label Information : 
TAPE ERROR SUMMARY PROGRAM-$TVES 
Program Description 
Error Logging Format 
OCL Considerations Mo Rts tee il Ue ig 
VTOC SERVICE PROGRAM-$wWVTOC 
Program Description dee, oa! A 
Contro! Statement Summary 
Parameter Summary 
Parameter Descriptions 
PACK Parameter 
UNIT Parameter 
OCL Considerations 
Examples 
APPENDIX A. IBM SYSTEM/3 STANDARD 
CHARACTER SET wets Gin Oo te 
APPENDIX B. CALCULATING FILE SIZE 
Data Area Track Requirements 
Index Area Track Requirements 
Track Usage for Index Files 
Core Index a a er 
Calculating File Sizes (Main Data Area)— 
Summary a ae ee 
Determining the Number of Tracks in a 
Sequential or Direct File a 
Determining the Number of Tracks in an 
Indexed File (Main Data Area) ae 
Determining the Number of Tracks of Disk 
Track Index avi Ske Oa Bg 
Converting Cylinder/Track to Track Number 
Converting Track Number of Cylinder/Track 


viii 


4-223 
4-223 
4-223 
4-223 
4-223 
4-223 
4-223 
4-223 
4-224 
4-224 
4-224 
4-224 
4-224 
4-224 
4-224 
4-225 
4-225 
4-233 
4-233 
4-234 
4-235 
4-236 
4-236 
4-236 
4-237 
4-239 
4-239 
4-240 
4-240 
4-241 
4-241 
4-241 
4-241 
4-241 
4-241 
4-241 
4-242 
4-242 


Al 
B-1 
B-1 
B4 
B4 
B-6 
B-7 
B-7 
B-7 
B-7 


B-7 
B-8 


APPENDIX C. OPERATOR CONTROL COMMANDS 
(OCC) a oa a ; 

OCC Summary ke se me o, 8 

Information About Syntax Illustrations 


APPENDIX D. SUBR15—LIBRARY ENTRY 
RETRIEVAL SUBROUTINE 

Linking SUBR15 with RPG 11 

Linking SUBR15 with Assembler 

Error Identification 


APPENDIX E. TRANSACTION LOGGING— 
$TRLOG . . . .. , 
Using Transaction Logging 
Tape Considerations 
Loading $TRLOG 
Controlling $TRLOG 
‘ Operating Considerations 
Programming Considerations 


APPENDIX F. PROGRAM REFERENCE 
INFORMATION . . . 


C-1 
C-1 
C-1 


D-1 
D-2 
D-5 
D4 


E-1 
E-1 
E-1 
E-1 
E-2 
E-2 
E-2 


F-1 


This publication contains four parts. Part 1 describes 
Operation Control Language (OCL) statements, Part 2 
describes the system concepts and facilities, Part 3 describes 
the format of a 3340 and 3344 volume, and Part 4 de- 
scribes the system service programs. 

PART 1 

Refer to Part 1 if you want to know: 

@ What an OCL statement is 


@ What each OCL statement is used for (function) 


@ Where each OCL statement is placed in relation to others 
and when it is needed (placement) 


@ How each OCL statment must be coded (format) 


What each OCL statement must contain (contents) 


PART 2 


Refer to Part 2 if you want to know about: 


Model 15 programming concepts 

@ Files and file services 

®@ Library facilities and concepts 

@ System operation overview 

@ Multiprogramming and spooling overview 


@ System control program facilities 
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PART 3 
Refer to Part 3 if you want to know about: 


@ The format and storage capacity of a 3340 or 3344 
volume 


@ Simulation areas 
@ Main data areas 
@ Alternate tracks 


@ Cylinder 0 format 


PART 4 
Refer to Part 4 if you want to know about: 


@ Which system service programs are supplied with the 
system 


@ The function of each system service program 

@ The operational control language (OCL) statements and 
control statements applicable to each system service 
program 

APPENDIXES 

Refer to the appendixes if you want information about: 

@ Standard System/3 character set 

@ Calculation of file sizes 

@ Operator contro! commands (OCC) 

@ How to retrieve library entries with SUBR15 

@ How to fog transactions 


@ Individual programs associated with SCP (system control 
programming 5704-SC2) 
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System/3 Model 15D features a processing unit that allows 
the attachment of a 3340 Direct Access Storage Facility 
and a 3344 Direct Access Storage. With a 3340A2 and 
3344B2, the maximum online disk storage is approximately 
506 megabytes. 


When compared to a System/3 Model 15A, Model 15B, or 
Model 15C, the Model 15D has a faster instruction cycle 
time for certain non-I/O instructions. The purpose of the 
faster cycle time is to complement the requirements of the 
enhanced programming support. 


System/3 Model 15D is supported by a multiprogramming 
system control program (Program Number 5704-SC2) that 


resides on a simulation area of a direct access storage device. 


It provides functions that are not available on other 
System/3 models. 


Three program partitions are supported. The scheduling 
and controlling of programs in the partitions is controlled 
by operation contro! language (OCL) statements and 
operator control commands (OCC). See Appendix C for a 
summary of the commands. 


Greater online library capacity is available because each 
partition can directly access three unique simulation areas 
and shares a common simulation area (the IPL area). Simu- 
lation areas are assigned by the user; reassignments for 
simulation areas other than the IPL area require an appro- 
priate OCL statement. (More information about simulation 
areas is included in Part 3 of this manual.) 


Input job streams are made up of jobs and job steps. A job 
is one or more LOAD/RUN or CALL/RUN sequences 
grouped together to execute in sequence and perform a 
specific function. A job step is one LOAD/RUN or 
CALL/RUN sequence. A JOB OCL statement must be 
used to group job steps together to form a job. See Part 2 
for a discussion of jobs and job steps. 


Model 15D Introduction 


As the system processes an input stream, jobs are processed 
in job mode. Job steps not contained within a specified 
job are processed, by the system, in step mode. See Part 2 
for a discussion of job and step mode. 


Program support provides a spooling function for certain 
input and output operations. Spooling places jobs from the 
input stream in a special area on disk called a reader queue. 
Jobs are transferred from disk by spooling to the partitions 
as required for execution. 


Printed and/or punched output is placed in queues on disk 
during execution of job steps. Printing or punching to the 
associated devices is performed by spooling. Spooling pro- 
vides greater flexibility during job scheduling and removes 
many 1|/O device conflicts between partitions. See Part 2 
for more information on spooling. 


Support for directly attached 3741 Data Station/Program- 
mable Work Station is similar to that for a card reader or 

card punch. In this manual, unless otherwise noted, refer- 
ences to card |/O also apply to the directly attached 3741. 
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Part 1. OCL Statements 
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WHAT IS OCL? 


Operation Control Language (OCL) is one means of com- 
municating with the system. Operator control commands 
(OCC) are another means of communicating with the 
system. See Appendix C for asummary of OCC. You must 
provide a set of OCL statements for each program you want 
to run. Based on the information supplied in these state- 
ments, the system loads and executes your programs or 
performs system service functions. 


You can supply OCL statements in four ways: (1) by 
punching the statements into cards, which are then read by 
the system; (2) by using the CRT/Keyboard to key the 
statements directly into the system; (3) by keying the 
statements onto a diskette, which is then read by the sys- 
tem; (4) by using procedures. 


After the system reads a set of OCL statements for a pro- 
gram, it runs the program. When the program ends, the 

system reads the next set of statements and runs that pro- 
gram. This cycle is repeated until all OCL statements have 
been read and the corresponding programs have been run. 


The running of your program is controlled by system con- 
trol programs. System control programs must be in main 
storage before your jobs can be run. These programs must 
be located in simulation areas. 


A procedure called initial program load (IPL) initiates the 
loading of selected system control programs. IPL must be 
performed by the operator after the system power-on 
sequence. Other system control programs are brought into 
main storage, as required, during program loading and 
execution, 
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OCL and the Job Stream 


The OCL statements you supply form the basis of the job 
stream. If your program requires data from the system 
input device (the device used to read OCL statements), the 
data must follow the corresponding OCL. The job stream 
can contain programs and program data as well as OCL 
statements. (Figure 1-1 shows an input job stream.) 


You can aiso store sets of OCL statements for your pro- 
grams outside the job stream in a source library on disk. 
These sets are called procedures. You can instruct the 
system to merge procedures into the job stream, which 
eliminates recoding frequently-used statements. (See 
Procedures in Part 2 of this manual.) 
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~~ DATE Statement (optional if 
entered at IPL or viaa DATE 
OCC). 


Figure 1-1. Input Job Stream 
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ORGANIZATION OF PART 1 
Part 1 is divided into: 
® Coding Rules — Defines the general contents of the OCL 


statements and explains the rules for writing the state- 
ments. 


® Statement Descriptions — Explains the functions, format, 


and contents of each OCL statement, and where each 
statement may be used in the job stream. 


@ Statement Examples — Presents and explains a job 
stream containing most of the OCL statements. 


CODING RULES 

Types of Information 

OCL statements contain, at most, two types of informa- 
tion: astatement identifier and parameters. The statement 
identifier distinguishes one statement from another; the 


parameters supply additional information. The following 
example shows the format of an OCL statement. 


Identifier | Parameter 1, Parameter 2, ..., Parameter n 


Statement Identifiers 


Every OCL statement needs one of these statement identi- 
fiers: 


ASSIGN IMAGE PUNCH 
BSCA JOB READER 
CALL LOAD RUN 
COMPILE LOG SWITCH 
DATE NOHALT /& 

FILE PAUSE /. 

HALT PRINTER * (asterisk) 


The word LOAD is an example of a statement identifier. 





1 4 8 12 
VA Weoain} Re 
HTT TTT | 











Parameters 


Some statements need parameters; others do not (see 
Statement Descriptions for an explanation). Parameters 
can be either codes or data. A code is a word or group of 
characters that has a certain meaning. Data is information 
such as the names, locations, and lengths of files on disk. 
(See Statement Descriptions for data and code restrictions 
on parameters.) In the following example, PROGZ2 is the 
name of an RPG II object program, and F1 is a 5444 unit 
code that is assigned to a simulation area. PROG2 is a data 
parameter and F1 is a code parameter. 








12 1 


6 
RIO aaa TTT 


24 28 








PRK) 


32 
oh 





Some statements require certain words in parameters to tell 
one parameter from another. The words are called key- 
words. Parameters containing keywords are called keyword 
parameters. (In the following example, NAME-MASTER, 
PACK-VOL1, and UNIT-R1 are keyword parameters. 
NAME, PACK, and UNIT are keywords. MASTER and 
VOLi are data parameters. R1 is a code parameter.) A 
hyphen is always required between the keyword and the 
code or data parameter. 






20 24 28 32 36 
WILE INET EEN, Misra, Pade aL RE 
BESTEST ELIE SLIT TT [Tal 0] 






General Coding Rules 


In Part 1 of this manual, the numbers that appear above 
statement formats and examples indicate the card columns 
or line positions occupied by the statements. In statement 
formats, special characters (such as //) and words written in 
capital letters represent information that must be used 
exactly as shown. Words written in small letters (such as 
code, program-name, and unit) represent information that 
you must supply. 


Special Meaning of Capital Letters, Numbers, and 
Special Characters 


Capitalized words and letters, numbers, and special charac- 
ters have special meanings in OCL and statement descrip- 
tions. 


Words or letters that are not capitalized indicate that you 
must supply a value that applies to the job you are doing. 
The values that can be used are listed in the parameter 
summaries. 


Braces { } and brackets { ] sometimes appear in param- 
eters shown in statement summaries and parameter sum- 
maries. They are not part of the parameter; they simply 
indicate a choice of values to complete the parameter. You 
must choose one of the values surrounded by braces; you 
may choose a parameter surrounded by brackets or omit 
that parameter entirely. Underscoring of one value enclosed 
by braces indicates the default. If you specify the keyword 
of a parameter, you must complete the parameter by 
supplying the code or data even though a default is indi- 
cated. 


For example: 


e rect. ; a | means that if you do not specify this 
= parameter, the system will select 
RECL-96. If you specify the keyword 
RECL, you must also supply one of 
the values (80 or 96). ~ 


@ RETAIN- ; ut means that you must specify either 
RETAIN-T or RETAIN-P. 


@ [,BLKL-block length] means that the block length 
parameter may be omitted 
entirely. 


Statements Beginning with // 


The rules for coding the statements are as follows (the term 
position refers to either record column or line position): 


@ The // must be placed in positions 1 and 2. The * 18, 
and /. statements are exceptions and must start in posi- 
tion 1. (See Statement Descriptions for *, /&, and /. 
statements.) 


@ There must be one or more blanks between the // and 
the word that forms the statement identifier (DATE, 
RUN, CALL, etc.). Exceptions are the JOB statement, 
which must have a jobname immediately following the 
//, and the LOAD statement, which may have a stepname 
immediately following the //. 


@ There must be one or more blanks between the end of 
the statement identifier and the first parameter. 


@ If you need more than one parameter, use a comma to 
separate them. No blanks are allowed within or between 
parameters. For the exception to this rule, see the des- 
cription for the HIKEY parameter under F/LE State- 
ment (Multivolume Disk Files). Anything following the 
first blank after the last parameter is considered a 
comment (see Comments). 


@ If you are writing keyword parameters, place the key- 
word first, and use a hyphen to separate the keyword 
from the code or data parameter. 


@ \f the parameter is not a keyword parameter, write the 


parameters in the order in which they are discussed in 
this manual. 
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(In the following example, the statement identifiers are 
LOAD and FILE. The parameters are PROG1, R1, 
NAME-MASTER, UNIT-R1, and PACK-VOL1.) 


TOM 
ai EPC EH 
eR, weed) 


la MAME|-MAIST 


oT LC 











Statement Length 


OCL statement length is as follows: 


Device Number of Characters 
MFCU 96 
MFCM 80 
1442 80 
2501 80 
CRT/Keyboard 96 
3741 96 
Continuation 


The only OCL statements that may exceed 80 or 96 charac- 
ters, including blanks and comments, are FILE, COMPILE, 
PUNCH, and PRINTER. Otherwise, each record you use 
must not exceed 80 or 96 characters. (Data for the IMAGE 
statement requires continuation for the cards or lines con- 
taining the chain image characters, but the data follows 
different continuation rules. See /MAGE Statement under 
Statement Descriptions for more information.) 


The continuation rules are as follows: 


@ There must be a comma after the last parameter in every 
record except the last parameter in the OCL statement. 
The comma, followed by a blank, tells the system that 
the statement is continued in the next record. 


@ Each new record must begin with a // in positions 1 and 
2. 


@ There must be one or more blanks between the // and 
the first parameter in the record. (See H/KEY Parameter 
under F/LE Statement [Multivolume Disk Files] for the 
exception to this rule.) 


The following illustration is an example of the continuation 
rules: 





Comments 


Your statements can include comments in the following 
places: 


@ Following the // in any statement beginning with //. 
The comment must begin in position 3 immediately 
following the //. You can use up to 8 characters without 
blanks. There must be one or more blanks between the 
comment and the word forming the statement identifier. 
(In the following example, the word BILLING is the 
comment.) Comments of this type, when used in a JOB 
or LOAD statement, are treated as jobname and step- 
name, respectively. 














@ After the last parameter. There must be one or more 
blanks between the last parameter and your comment. 
The comment can be any combination of characters 
except dashes. If the statement is continued in sub- 
sequent records, you can place comments after the last 
parameter in any of the records. 








@ After statements without parameters. There must be 
one or more blanks between the statement identifier and 
your comment. Examples of statements without param- 
eters are: /&, // PAUSE, and // RUN. 


Spooling and Multiprogramming Considerations 


All OCL statements can be used in a spooled input job 
stream, and all can be used in any partition. 


In addition to writing comments within your OCL state- 
ments, you can include entire records of comments. The 
OCL comment statement is provided for that purpose (there 
must be an * in position 1 followed by the comment). For 
more information about the comment statement, refer to 
*(Comments) Statements under Statement Descriptions. 


Note: The DATE, IMAGE, LOG, PRINTER, PUNCH, 
READER, and /. OCL statements require special considera- 
tion when used in a spooled input job stream. 
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Statement Descriptions 


The following information is given separately for each OCL 
statement in this section: 


® Function of the statement 
® Placement of the statement in regard to other statements 


and the circumstances under which the statement is 
needed 


, 


® Format of the statement 


® Contents of the statement (explaining the Parameters 
that can be used in the statement) 


® Spooling considerations for each statement 


Figure 1-2 gives the function, placement, and restrictions 
on use for each OCL statement. Figure 1-3 describes the 
contents of the OCL statements and is meant for reference 
only. When using Figure 1-3, remember that words written 
in small letters, such as filename or value, require a choice 
on your part, depending on the functions you want the 
statement to perform. Capitalized parameters must be 
coded along with the data or code parameter. (Figure 1-3 
shows which parameters are available.) 


If you are not familiar with an entry, or you do not know 
when to use or omit it, refer to the proper statement in the 
remainder of this section. 
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Placement 
















Statement Appears 
In Job Stream 


Statement Appears 
In a Procedure Coding Notes 






Statement 


// ASSIGN 
// BSCA Changes the BSCA | Must follow LOAD or 
line number. CALL statement and 
precede the RUN 
statement. 


// COMPILE 


// DATE 



























Allows reassign- 
ment of a 5444 
unit code (R1, 
F1, R2, F2) toa 
simulation area. 


Anywhere among the 
OCL statements 


Must precede the RUN 
statement (if RUN is 
used}. 


System pack 
(R1 or F1) cannot 
be reassigned. 





































Must follow the LOAD 
statement and precede 
the RUN statement (if 
RUN is used). 























Identifies pro- 
cedure to be 
merged into job 
stream and disk 
containing the 
source library 

from which to 

read the procedure. 


Must precede the RUN 
statement. Must follow 
the JOB statement 
when the system is 
operating in job 

mode. 


Must precede the RUN 
statement (if RUN is 
used). 


1. If found in a pro- 
cedure, indicates 
nested procedures. 
No more than nine 
levels of nested 
procedures allowed. 

2. Must not be be- 

tween LOAD and 

RUN or CALL 

and RUN. 



































Must follow LOAD or 
CALL statement and 
precede the RUN 
statement. 


Supplies informa- 
tion about the 
program to be 
compiled or 
assembled to the 
compiler and the 
linkage editor. 


Must follow the LOAD 
statement and precede 
the RUN statement 

(if RUN is used). 


Only one COMPILE 
statement allowed 
per job step. 






























Changes system 
date and parti- 
tion dates. 


Must precede the first 
JOB, CALL, or LOAD 
statement. 






Not applicable 










Must follow the JOB 
statement and precede 
a LOAD statement 

(either before the first 
step or between steps). 


Before LOAD statement. 













Changes parti- 
tion date for 
job. 


















Must follow the LOAD 
or CALL statement and 
precede the RUN. 


After LOAD and before 
RUN. 






Changes parti- 
tion date for 
step. 


Cannot be entered 
if DATE was used to 
change partition 

date for job. 










































Must follow LOAD or 
CALL statement and 
precede the RUN 
statement. 


Must follow the LOAD 
statement and precede 
the RUN statement 

(if RUN is used). 


Supplies informa- 
tion about a file 
to the system. 


Required for every 
new file created and 
for existing files 
being used. 
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Statement Descriptions 1-9 


———— 


If HALT 


/1 INCLUDE 
























//iobname JOB 


// LOAD 
or 

//stepname 

LOAD 

















Statement Appears Statement Appears 
In Job Stream In a Procedure Coding Notes 


_ SS 
Anywhere among the Must precede the RUN 
OCL statements. statement (if RUN is 
used). 


Anywhere among the Must precede the RUN Required if the 
OCL statements. statement (if RUN is printer chain has 
used). been changed. 




























Instructs system 
to halt when 
Program ends; 
cancels the effect 
of nohalt mode. 





































Tells the system 
to replace the 
chain-image area 
with characters 
indicated in the 
data records that 
are read from the 
system input de- 
vice or read from 
the source library. 

















Identifies the 
entry in the 
source library 
that contains 
the OCL state- 


Anywhere among the 
OCL statements. 


Must precede the RUN 
statement (if RUN is 
used). 


1. If system service 
program control 
statements follow 
the RUN state- 
ment in the source 














ments to be member, they are 
merged into the placed in the SWA 
job stream. and read from 

















there by the system 
service program. 
2. Must not be 
between CALL 
and RUN. 





























Allows you to run 
related job steps 
together to ensure 
they are run 
sequentially. 


Cannot be used in a 
Procedure. 


Must precede the first 
LOAD or CALL state- 
ment for a job. 


Places a partition 
in job mode. Re- 
quired whenever 

spooling is active. 






























Identifies the 
Program to be 
run and indicates 
the disk that con- 
tains the object 
library from which 
it is to be loaded. 


Must precede the RUN 
statement. Must follow 
the JOB statement when 
the system is operating 
in job mode. 


Must precede the RUN 
statement (if RUN is 
used). 
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Statement Appears Statement Appears 





In Job Stream In a Procedure Coding Notes 





































// LOAD * Indicates that Must precede the RUN Must precede the RUN A LOAD * program 
or after the RUN statement. Must follow statement (if RUN is cannot be loaded if 
//stepname statement is the JOB statement when used). Object program another LOAD * 
LOAD * processed, the the system is operating will be read from the program (with over- 
object program in job mode. - system input device. lays) is executing in 
will be loaded another partition. 


from the system 
input device or 
from the file 
indicated on the 
specified unit. 








Changes the device} Anywhere among the Must precede the RUN Applies only to the 
used for display- OCL statements. statements (if RUN is partition in which it 
ing system used). was entered. 
messages and 
controls page 
ejection before 
EJ and ES and 
after EJ. 





// NOHALT 






Instructs system 
to continue with- 
out stopping 
when a program 
ends and/or sets 
the severity level 
of halts. 





Anywhere among the None 


OCL statements. 


Must precede the RUN 
statement (if RUN is 
used). 































// PAUSE Causes OCL 
processing to stop 
in order to give 
the operator time 
to perform a 
function. Opera- 
tor must restart 


OCL processing. 


Anywhere among the 
OCL statements. 


Must precede the RUN 
statement (if RUN is 
used). 


This is the only OCL 
statement displayed 
on the CRT. 























// PRINTER 






Enables you to 
describe the 
functions per- 
formed by the 
system print 
device and 
control options 
related to print 
spooling. 


Anywhere among the None 


OCL statements. 


Must precede the RUN 
statement (if RUN is 
used). 
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Statement Descriptions 1-11 


Statement 


// PUNCH 


// READER 


// SWITCH 








Enables you to 
describe the 
functions per- 
formed by the 
system punch 
device and 
control options 
related to punch 
spooling. 


Changes the 
system input 
device used to 
read OCL 
statements. 


Indicates the end 
of the OCL state- 
ments for a job 
step and tells 
system to run 
the program. 


Used to set one 
or more external 
indicators on or 
off or to leave the 
indicator as it is. 


Acts as a delimiter 
between job steps. 


Statement Appears 
In Job Stream 


Anywhere among the 
OCL statements. 


Statement Appears 
In a Procedure 


Must precede the RUN 
statement (if RUN is 
used). 





Must precede LOAD 
or CALL statement. 


Must follow the LOAD or 
CALL statement and be 
the last OCL statement 
for a job step. 


Anywhere among the 
OCL statements. 


Recommended as the 
last OCL statement of 
a job step. 
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Must precede the LOAD 
statement (if LOAD is 
used). 


If used, must follow the 
LOAD statement and be 
the last OCL statement 
in the procedure. 


Must precede the RUN 


statement (if RUN is used). 


Not allowed in a 
procedure. 


Coding Notes 


lf used in a procedure, 
the system input de- 
vice is changed when 
the READER state- 
ment is processed; but 
OCL statements are 
not read from the new 
system input device 
until the procedure is 
completely executed. 


Required in the job 
stream for each job 
step which is to 

be run. 


Only one switch 
statement allowed 
between LOAD or 
CALL and RUN. 


Not allowed in a 
procedure. 





Statement 


* (Comment) 


Function 


. With spooling 
active, acts as 
a delimiter 
between jobs. 
Causes end of 
job. 


. With input 
spooling active, 
two consecutive 
/. statements 
indicate end of 
spooled input. 


. With spooling 
inactive, indi- 
cates end of 
job mode. 
Causes end of 
job. Next OCL 
statement may 
start job step 
mode. 


Used to explain 
the job, to write a 
time stamp to the 
SHA, or to give 
the operator 
instructions; does 
not affect pro- 
gram operation. 


Statement Appears 
In Job Stream 


Recommended as the 
last OCL statement of 
a job. 


Last two OCL state- 
ments in the input 
job stream. 


Last OCL statement 


Anywhere among the 
OCL statements. 
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Statement Appears 
In a Procedure 


Not allowed in a 
procedure. 


Not allowed in a 
procedure. 


Not allowed in a 
procedure. 


Anywhere among the 
OCL statements. 


Coding Notes 


Not allowed ina 
procedure. 


Not allowed in a 
procedure. 


Not allowed in a 
procedure. 


Comments are not 
displayed on the 
CRT. 


Statement Descriptions 
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| saterieie | Parameter Code Meaning of Code 
_ 


// ASSIGN D1A, D1B, D1C, D1D, 
PACK-name 


D2A, D2B, D2C, D2D, 
// BSCA LINE LINE-1 
2 


D3A, D3B, D3C, D3D, 
// CALL procedure 
name 
unit 
switch 
characters 


D3E, D3F, D3G, D3H, 
D4A, D4B, D4C, D4D, 
// COMPILE SOURCE 
UNIT 









Assign (by partition) a 5444 unit code to a simulation 
area code. (Refer to ASS/GN Statement.) 








D4E, D4F, D4G, D4H 










AREA-name Name of simulation area to be assigned. 










Name of main data area associated with simulation area. 









Change all BSCA DTF line codes to the line number 
specified. 








Name that identifies the procedure in the source library. 










Specifies the simulation area that contains the procedure. 








5444 unit code Unit code for simulation area. Possible codes are R1, F1, 


R2, F2. 




















XXXXXXXX Specifies 8 switch characters that are compared with the 
eight external indicators. Possible characters are O, 1, 


or X. 




















SOURCE-name 
UNIT-5444 unit code 


Name of source program. 
Specifies the simulation area that contains the source 
library. Possible codes are R1, F1, R2, F2. 












OBJECT 





OBJECT-5444 unit code | Specifies the simulation area that is to receive the object 


program. Possible codes are R1, F1, R2, F2. 














LINKADD LINKADD—4000: 


8000 


Linkage Editor: start address (hexadecimal). 







ATTR—MRO 


// DATE date mmddyy 
ddmmyy 
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Requests that the object program be link-edited to use 
REMAP mode, memory resident overlays. 







Requests that the object program be link-edited to use 
MOVE mode, memory resident overlays. 











System date or partition date (domestic date format). 
System date or partition date (World Trade date format). 









Statement Parameter 








Code 





Meaning of Code 



















// FILE NAME 
(disk files) UNIT 
























RECORDS 
or 
TRACKS 
LOCATION 





















RETAIN 


DATE 


HIKEY 







VERIFY 


SHARE 


















NAME-filename 


code 


PACK-name 
LABEL-filename 


RECORDS-number 
or 
TRACKS-number 
LOCATION- 
track number 
LOCATION- 
cylinder number 
LOCATION- 
cylinder number/ 
track number 
RETAIN-T 

S 

Pp 
DATE-mmddyy 

ddmmyy 

HIKE Y-‘highest 
unpacked key fields 
allowed’ 
—or— 
HIKEY-P ‘highest 
packed keyed fields 
allowed’ 
VERIFY-YES 





NO 
SHARE-YES 


NO 
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UNIT-5444 unit code 


UNIT-main data area 
















Name the program uses to refer to the file. 
Specifies the simulation area that contains or will con- 
tain the file. Possible codes are R1, F1, R2, F2. 


Specifies the main data area that contains or will con- 






tain the file. Possible codes are D1, D2, D3 or D31, D32, 


D33, D34, D4 or D041, D42, D43, D44. 


Name of area that contains or will contain the file. 
Name by which your file is identified or will be 


identified on disk. 





Approximate number of records for the file. 





Number of tracks required by the file. 
Track number on which file begins or is to begin 


(simulation area only). 


Cylinder number on which file begins or is to begin. 
Track assumed zero (main data area only). 
Cylinder number, track number on which file begins 


Temporary file. 
Scratch file. 
Permanent file. 


List of highest unpacked key fields allowed on each 


or is to begin (main data area only). 


Tells the system the date the file was created. 


pack of an indexed multivolume file (main data area 


only). 





List of highest packed key fields allowed on each pack 
of an indexed multivolume file (main data area only). 


Verify disk write operations for this file (main data 


area only). 


Do not verify disk write operations for this file. 


Allow file sharing between partitions if access methods 


are compatible. 
Do not allow file sharing. 


Multiple references to the same file within one program 
are not allowed if SHARE-NO is specified. If parameter 
is omitted, SHARE-YES is assumed. 


Statement Descriptions 
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Statement Parameter Code 


Meaning of Code 








// FILE are NAME-filename 
(tape file) UNIT UNIT-T1 

T2 

T3 

T4 
REEL-nnnnnn 


NL 
NS 
BLP 


LABEL-name 

or 

LABEL- 

‘character string’ 

DATE DATE-mmddyy 
ddmmyy 

RETAIN-nnn 





RETAIN 


BLKL BLKL-block length 
RECL RECL-record length 
RECFM RECFM-F 
V 
D 
FB 
VB 
DB 
END-LEAVE 
UNLOAD 
REWIND 
DENSITY-200 
556 
800 
1600 





DENSITY 


ASCII ASCII-YES 
NO 
DEFER-YES 
NO 
CONVERT-ON 


DEFER 


CONVERT 


OFF 


TRANSLATE | TRANSLATE-ON 


OFF 
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Name the program uses to refer to the file. 
Where the tape that contains or will contain the file 
is mounted. 


Name of the labeled tape that contains or will contain 
the file. 

The tape is not labeled. 

The tape contains non-standard labels (input only). 

A standard labeled tape is mounted. Bypass label 
processing (input only). 

Name by which your file is identified on tape. 


The date the file was created. 


The number of days a file should be retained before 
it expires. 

The number of bytes in a physical block on tape. 
The number of bytes in a logical record. 

Fixed length, unblocked records. 

Variable length, unblocked records. 

Variable length, unblocked D-type ASCII records. 
Fixed length, blocked records. 

Variable length, blocked records. 

Variable length, blocked, D-type ASCI! records. 
The tape remains in position after the file is processed. 
The tape is rewound and unloaded after processing. 
The tape is rewound after processing. 

The tape will be written at 200 bpi (bits per inch) density. 
The tape will be written at 556 bpi density. 

The tape will be written at 800 bpi density. 

The tape will be written at 1,600 bpi density. 
Default for 7-track is 800 bpi. 

Default for 9-track is 1,600 bpi. 

An ASCII file is being processed or created. 

An EBCDIC file is being processed or created. 

The tape volume will be mounted later. 

The tape is presently mounted. 

Data read from or written to a 7-track tape file will 
be converted. 

Data read from or written to a 7-track tape file will 
not be converted. 

Data read from or written to a 7-track tape file will 
be translated. 

Data read from or written to a 7-track tape file will 
not be translated. 





Statement Parameter 


Code 








// FILE PARITY 
(tape) 


(continued) 


SEQNUM 


PARITY-EVEN 
ODD 


SEQNUM-nnnn 
xX 





// FALE 
(device inde- 
pendent card, 
diskette, or 
printer files) 


// IMAGE format 


// INCLUDE procedure 


name 
unit 


switch 
characters 


NAME-filename 


UNIT-MFCU1 
MFCU2 
MFCM1 
MFCM2 
1442 
2501 
3741 
1403 
3284 
READER 
PRINTER 
PUNCH 

PRINT-YES 

NO 

RECL-record length 


CHAR 
MEM 
value 


name 


5444 unit code 


5444 unit code 


XXXXXXKXX 
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Meaning of Code 


The 7-track tape file will be read or written in even 
Parity. 

The 7-track tape file will be read or written in odd 
Parity. 

File sequence number can be 0001 to 9999. 
Prepositioned file. 





Name the program uses to refer to the file. 


Primary hopper of 5424 MFCU. 

Secondary hopper of 5424 MFCU. 

Primary hopper of 2560 MFCM. 

Secondary hopper of 2560 MFCM. 

1442 Card Read Punch. 

2501 Card Reader. 

3741 Data Station/Programmable Work Station. 
1403 Printer. 

3284 Printer. 

Use the partition’s assigned system input device. 
Use the partition’s assigned system print device. 
Use the partition’s assigned system punch device. 
Interpreting is to be done on punch files. 
Interpreting is not to be done on punch files. 
Number of bytes in a logical record (3741 only). 


Characters from system input device are in hexadecimal 
form. 

Characters from system input device are in EBCDIC 
form. 

Characters are from the source library. 

Number of new characters. 

Identifies the source member containing the characters 
in the source library. 

Specifies the simulation area that contains the source 
library. Possible codes are R1, F1, R2, F2. 


The name of the procedure that contains the OCL to be 
merged. 


Specifies the simulation area that contains the procedure. 
Possible codes are R1, F1, R2, F2. 

Specifies 8 switch characters that are compared with the 

eight external indicators. Possible characters are 0, 1, X. 
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//jobname JOB | PRIORITY 


CORE 


SPOOL 


PARTITION 


PRIORITY-O 


CORE-size 


SPOOL-YES 
NO 
PARTITION-1 


Meaning of Code 


_ 


Specifies a job’s priority on the reader queue and on the 
output queues unless overridden by a PRIORITY 
Parameter on a PRINTER or PUNCH statement. 


Specifies amount of main storage required to execute 
the largest step of a job. 

Indicates whether spooling can or cannot be used for 
the job. Default is YES. 

Specifies the partition in which a spooled job should be 
executed. A means 1 or 2; B means 1 or 3; C means 2 
or 3; D means 1, 2, or 3. 


Allows (QCOPY-YES) or disallows (QCOPY-NO) the 
spool file copy program ($QCOPY) to access this job on 
the reader queue. 





// LOAD 
or 

//stepname 
LOAD 


// LOAD 
or 

//stepname 
LOAD 


asterisk 
program-name 
unit 

switch 
characters 


Pprogram-name 


unit 


switch 
characters 


* 


name 
main data area code 
XXXXXXXX 

name 


5444 unit code 


XXXXXXXX 


Program is to be loaded from the system input device. 
Identifies the file that contains the object program. 
Specifies the main data area that contains the file. 
Specifies 8 switch characters that are compared with the 
eight external indicators. Possible characters are O, 1, X. 


Name of program that is to be loaded from an object 
library on disk. 

Specifies the simulation area that contains the program. 
Possible codes are R1, F1, R2, F2. 

Specifies 8 switch characters that are compared with the 
eight external indicators. Possible characters are 0, 1, X. 





CONSOLE 
1403 


3284 


EJECT! 
NOEJECT! 


Log to CRT and system history area on system pack. 
Log to CRT, the 1403 printer, and the system history 
area on the system pack. 

Log to CRT, the 3284 printer, and the system history 
area on the system pack. 

Eject a page before ES and EJ and after EJ. 

Do not eject a page before ES and EJ and after EJ. 


1When you use the spool print writer, an eject occurs at the start of every job step, regardless of the mode specified in the LOG 
statement. 
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Statement 


// NOHALT 


// PAUSE None 


// PRINTER DEVICE 
LINES 
FORMSNO 
COPIES 
DEFER 
CLOSE 
QCOPY 
ALIGN 
PRIORITY 

// PUNCH DEVICE 
CARDNO 
COPIES 
DEFER 
QCOPY 
PRIORITY 
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SEVERITY-1 




























SEVERITY 





Tells the system to select default options for error 
halts. 







































DEVICE-1403 
3284 
LINES-number 
FORMSNO-forms 
type 


1403 Printer is used as the system print device. 

3284 Printer is used as the system print device. 
Specifies the number of print lines per page. 

Informs the operator which forms type should be 
mounted on the printer, and determines the forms type 
of the spooled printed output. 

With spooling active, allows you to obtain more than 
one copy of each job step’s printed output. 

Allows you to begin printing a job step’s spooled out- 
put before the job step completes execution 
(DEFER-NO). Default is DEFER-YES. 













COPIES-number 













DEFER-YES 
NO 










































CLOSE-YES Ailows you to control when print spool will close an 
NO intercepted job step on the spool file. 

OQCOPY-YES Allows you to prevent spool file print records from 
NO- being copied by the spool file copy program. 

ALIGN-YES Allows you to perform forms alignment for spooled 
NO printed output (ALIGN-YES). Default is ALIGN-NO. 

PRIORITY-O Specifies a job step’s priority on the spool print queue. 


Default is the priority of the job at the time it is 
executed. 












DEVICE-MFCM1 Primary hopper of 2560 MFCM. 












MFCM2 Secondary hopper of 2560 MFCM. 

MFCU1 Primary hopper of 5424 MFCU. 

MFCU2 Secondary hopper of 5424 MFCU. 

1442 1442 Card Read Punch. 

3741 3741 Data Station/Programmable Work Station. 






CARDNO-card type 
COPIES-number 


Tells the operator which card type to use for punching. 
With spooling active, allows you to obtain more than 
one copy of each job step’s punched output. 

Allows you to begin punching a job step’s spooled 
output before the job step completes execution 
(DEFER-NO). Default is DEFER-YES. 

Allows you to prevent spool file punch records from 
being copied by the spool file copy program. 

Specifies a job step’s priority on the spool punch queue. 
Default is the priority of the job at the time it is 
executed. 











DEFER-YES 
NO 

















QCOPY-YES 
NO 
PRIORITY-O 









Statement Descriptions 1-19 


Parameter Code 


Meaning of Code 





// READER CONSOLE 
MFCU1 
MFCU2 
MFCM1 
MFCM2 
1442 
2501 
3741 


CRT/keyboard. 

Primary hopper of 5424 MFCU. 

Secondary hopper of 5424 MFCU. 

Primary hopper of 2560 MFCM. 

Secondary hopper of 2560 MFCM. 

1442 Card Read Punch. 

2501 Card Reader. 

3741 Data Station/Programmable Work Station. 





None 





// SWITCH indicator- 
settings 


Set external indicator off. 
Set external indicator on. 
Leave external indicator as it is. 








* (Comment) 


* TIME 
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Write a time stamp to the SHA (system history area). 
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ASSIGN Statement 


Function 


Placement 


Format 


Contents 


Examples 


The ASSIGN statement allows the reassignment of the 5444 unit codes (F1, R1, F2, R2) 
to any of the supported simulation areas. The reassignment(s) applies only to the parti- 
tion in which the ASSIGN statement is processed. The system pack cannot be reassigned. 
Therefore, a maximum of nine user-assigned simulation areas is allowed (three per parti- 
tion). All reassignments remain in effect until another ASSIGN statement is processed or 
until another initial program load (IPL) is performed. 


The ASSIGN statement can appear anywhere among the OCL statements. In a procedure, 
the ASSIGN statement must precede the RUN statement. 


// ASSIGN 5444 unit code — simulation area code [,AREA-name] [,PACK-name] 
Possible 5444 unit codes are R1, F1, R2, F2. 


Possible simulation area codes are: 


3340 drive 1 D1A, D1B, D1C, D1D 
3340 drive 2 D2A, D2B, D2C, D2D 
3340 drive 3 D3E, D3A 
3340 drive 4 D4E, D4A 
3344 drive 3 

volume 1 D3E, D3A 

volume 2 D3F, D3B 

volume 3 D3G, D3C 

volume 4 D3H, D3D 
3344 drive 4 

volume 1 D4E, D4A 

volume 2 D4F, D4B 

volume 3 D4G, D4cC 

volume 4 D4H, D4D 


AREA-name: This optional parameter is used to verify the name of the simulation area. 
The system checks this name against the actual simulation area name to ensure that the 
proper simulation area is being assigned. For information about how a simulation area is 
given a name, refer to Simulation Area Program ($SCOPY). 


PACK-name: This optional parameter is used to verify the name of the main data area 
associated with the simulation area specified on the ASSIGN statement. The system 
checks this name against the actual main data area name to ensure that the proper main 
data area is online and in a ready state. For information about how a main data area is 
given a name, refer to Disk Initialization Program ($INIT). 


// ASSIGN F2-D4C,R1-D3B,R2-D1D 


For the partition in which the ASSIGN statement is processed, the following simulation 
area assignments are made: 


@ Simulation area D4C on volume 3 of 3344 drive 4 will be referenced as F2. 


@ Simulation area D3B on volume 2 of 3344 drive 3 will be referenced as R1. 


ASSIGN Statement 1-21 


Considerations and 
Restrictions 


1-22 


@ Simulation area D1D on 3340 drive 1 will be referenced as R2. 
@ The simulation area assignment for F1 was made during IPL. 
// ASSIGN R1-D3E,PACK-D3D3D3,AREA-D3ED3E 


@ For the partition in which the ASSIGN statement is processed, simulation area D3E on 
drive 3 will be referenced as R1. 


©@ The name of the simulation area is verified as being D3ED3E (AREA-D3ED3E). 


@ The name of the main data area associated with the simulation area is verified as being 
D3D3D3 (PACK-D3D3D3). 


The reassignment of the simulation areas is effective immediately after the ASSIGN 
statement is processed. 


Assume that an IPL is performed with the PROGRAM LOAD SE LECTOR switch setting 
at DISK 1 F1. The system will assign F1 to D1A for all partitions; the unit code assigned 
to the system pack must not be used in the ASSIGN statement. Two different 5444 unit 
codes cannot be assigned to the same simulation area within a partition. 


An ASSIGN statement is not processed when it is included among the OCL statements of 
a job step that is flushed. 


If the PACK and/or AREA parameter is specified, only one simulation area can be re- 
assigned on each ASSIGN statement. 


The name of the area (main data and/or simulation) is checked only if the appropriate 
parameter (PACK and/or AREA) is specified. 


BSCA Statement 


Function 


Placement 


Format 


Contents 


Spooling Considerations 


The BSCA statement allows you to change all BSCA line specifications in your program. 
Therefore, you can use BSCA line 1 or 2 without recompiling the program. If the BSCA 
statement is not entered, the line specifications in the program are not changed. 


The BSCA statement must follow the LOAD or CALL statement and precede the RUN 
statement. 


// BSCA parameter 


The parameter LINE-code is a keyword parameter. The codes are as follows: 


Code Meaning 
1 Change all BSCA line specifications to BSCA line 1. 
2 Change all BSCA line specifications to BSCA line 2. 
None 
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CALL Statement | 


Function 


Placement 


Format 


Contents 


Example 


Spooling Considerations 


CALL statements are needed only when you want to call a procedure from the source 
library. 


To understand the function of the CALL statement, you must understand the relationship 
between the job stream and procedures. The job stream contains the OCL statements 
that control the system. The system reads the job stream from the system input device. 
Procedures are sets of OCL statements in a source library on disk. They have no effect 

on the stream until they are merged into the job stream. 


You can modify the procedure identified by a CALL statement, by providing other OCL 
statements (procedure override Statements, see Changing Procedure Parameters) after the 
CALL statement. These statements temporarily modify the procedure. The last state- 
ment of the CALL sequence must be a RUN statement. The RUN statement is required 
whether or not you supply other OCL statements. (Procedures are further explained in 
Part 2.) 


CALL statements can be used in the job stream or in a procedure. They are, in effect, 
replaced by the procedures they identify. The CALL statement must precede the RUN 
statement. On spooled systems, it must follow the JOB statement. It must not be 
between LOAD and RUN or CALL and RUN. 


// CALL procedure-name,unit,switch characters (optional) 


Procedure-name: The procedure-name is the name that identifies the procedure in the 
source library. You supply the procedure-name in the library maintenance control state- 
ments when you use that program to place the procedure in the library. (See Library 
Maintenance Program in Part 4 of this manual for restrictions on procedure-name.) 


Unit: The unit parameter is a required code. The code identifies the simulation area that 
contains the procedure. Possible codes are R1, F1, R2, F2. 


Switch characters: The switch characters (0, 1, and X) are optional. When you include 
them, you must supply 8 characters because they are compared with the eight external 
indicators. The system does a comparison for each position if the switch character is a 0 
or 1. An X cancels the compare operation for that position only. The first (leftmost) 
switch character is compared with external indicator 1; then the second switch character 
is compared with external indicator 2; this process continues until the 8 switch characters 
and the eight external indicator Positions are either compared or bypassed. If an equal 
condition exists, the procedure is called. Otherwise, an informational message is displayed 
and the job stream is flushed to the next step. 


The Procedures section in Part 2 contains CALL statement examples. 


None 


COMPILE Statement 


Function 


Placement 


Format 


Contents 


The COMPILE statement tells the system where the source program to be compiled is 
located (if it is coming from a source library), and where the object program is to be 
placed. (An object program is the result of compiling or assembling a source program.) 
The COMPILE statement also specifies the options to the linkage editor. 


The COMPILE statement must be within the set of OCL statements that apply to the 
compilation. The COMPILE statement must follow the LOAD or CALL statement and 
precede the RUN statement. 


// COMPILE parameters 
All the parameters are keyword parameters. The keywords are: 


SOURCE: The SOURCE parameter tells the system the name of the source program. 
The keyword SOURCE must be followed by the name of the source program on disk. 
The name is the name by which the source program is identified on disk in the source 
library. You can place source programs in a source library by using the library mainte- 
nance program. The program name you supply in the library maintenance control state- 
ments is the name used to identify the source program in the library. (For more informa- 
tion, see Library Maintenance Program in Part 4 of this manual.) 


If the SOURCE parameter is not used, the source program is assumed to be in the job 
stream following the RUN statement. 


The SOURCE parameter must be accompanied by the UNIT parameter. 
UNIT: The UNIT parameter is used only when the SOURCE parameter is used. 


The UNIT parameter is a code indicating the simulation area that contains the source 
program. Possible codes are R1, F1, R2, F2. 


OBJECT: The OBJECT parameter tells the system where to place the object program. 
The OBJECT parameter may be specified without the SOURCE and UNIT parameters. 
The codes used to indicate the simulation area on which the object program is to be 
placed are R1, F1, R2, F2. 


Note: |f the OBJECT parameter is omitted, the object program is placed on the same 
simulation area the compiler was loaded from. The OBJECT parameter does not affect 
the placement of FORTRAN or COBOL object programs. 


LINKADD: This parameter is the link-edit start address. The System/3 compilers 

(RPG il, COBOL, FORTRAN) use the overlay linkage editor to generate object modules. 
Normally the starting addresses for these object modules are predetermined. However, 
for some applications, such as executing object programs under control of CCP, it is 
necessary to alter the starting addresses. The LINKADD parameter can be used for this 
purpose (allowable entries are hex addresses 4000 or 8000). 


For execution under CCP, LINKADD-8000 must be used for RPG I! object programs and 
should be used for COBOL and FORTRAN object programs. For execution under other 
than CCP, LINKADD-4000 must be used for RPG I! object programs (or the parameter 
must not be specified). For COBOL and FORTRAN object programs, LINKADD-4000 
should be specified (or the parameter should not be specified). 
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ATTR: The ATTR-MRO parameter tells the overlay linkage editor to link-edit an object 
module for the REMAP technique of memory resident overlays. The ATTR-MOV param- 
eter tells the overlay linkage editor to link-edit an object module for the MOVE technique 
of memory resident overlays. For additional information about the memory resident 
overlays, refer to the /BM System/3 Overlay Linkage Editor Reference Manual, 
GC21-7561. 


Note: The ATTR parameter should be used only with an O module. (MRO and MOV 
Program attributes will not be attached to an R module.) 


The following sample COMPILE statement tells the system that the source program with 
the name PROG3 is located on the simulation area assigned to F1. 


36 44 48 52 
Jéicir-Ri].||/WKADD add 
| TT 
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The OBJECT-R1 parameter tells the system to place the object program on the simulation 
area assigned to R1. The LINKADD-4000 parameter tells the linkage editor to link-edit 
the program to start at address hex 4000. The ATTR-MRO parameter tells the linkage 
editor to link-edit an object module for the REMAP technique of memory resident 
overlays. 


None 


DATE Statement 


Function 


Placement 


Format 


Contents 


Example 


Spooling Considerations 


The DATE statement changes the system date or one of the three partition dates. 
System Date 


To set the system date, the DATE statement is entered during IPL before any JOB, CALL, 
or LOAD statements. 


Partition Date 
The partition date can be changed by use of the DATE statement, as follows: 


1, Job Date: \f the DATE statement is entered after the JOB statement and before a 
LOAD statement, that date will remain in effect for the remainder of that job. It 
is restored to the current system date for the next job. The DATE statement need 
not precede the first step; it may be placed prior to any step’s LOAD statement 
and will be in effect from that step to the end of that job. 


2. Step Date: \f the DATE statement is entered after a LOAD or CALL statement 
and before the RUN statement for that step (that is, if the DATE statement is 
entered within a step), the partition date is changed for the duration of that step. 
It is restored to the current partition date for the next step. 


Use of the DATE statement prior to a LOAD statement ensures that the same date is used 
for each step in the job. Also, once a DATE statement is entered in this manner, a subse- 
quent DATE statement may be entered for the job, but only if it occurs prior to a LOAD 
statement. 


// DATE date 


The system date can be in either of two formats: month-day-year (mmddyy) or 
day-month-year (ddmmyy). You must specify the format during system generation. 


The date can be written with or without punctuation. For example, July 25, 1993, 
could be specified in any one of the following ways: 


07-25-93 250793 
25-07-93 7-25-93 
072593 25-7-93 


Any characters except commas, apostrophes, numbers and blanks can be used as 
punctuation. 


When input spooling is present on the system, the date should be entered during IPL. 
This entry can be made via a command or in response to the IPL prompt for DATE. If 
the date is not entered during IPL, the first job to execute must have a DATE statement 
preceding the first JOB statement. 
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Sample Job Streams //A JOB //B JOB //C JOB 
// LOAD // DATE // DATE 
// DATE // LOAD // LOAD 
// RUN // RUN // RUN 
// LOAD // LOAD // LOAD 
// RUN // RUN // DATE 
/- J // RUN 


/s 


In job A, the partition date is changed only for the first step of the job. For the second 
step, the date is restored to the system date. 


In job B, the partition date is changed for all steps in the job, The date is restored to the 
system date for the next job. 


In job C, the partition date is changed for all steps in the job. The DATE statement in the 
second step is not allowed and will cause a message to be issued. 
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FILE Statement (Single Volume Disk Files) 


Function 


Placement 


Format 


Contents 


The FILE statement supplies the system with information about disk files. The system 
uses this information to read records from and write records on disk. 


You must supply a FILE statement for each of the new disk files that your programs 
create, and for each of the existing disk files that your programs use. The maximum 
number of files allowed is explained under Scheduler Work Area in Part 2 of this manual. 
The FILE statement must follow the LOAD or CALL statement and precede the RUN 
statement. 
// FILE parameters 
All of the parameters are keyword parameters, as follows (keywords are in capital letters): 
NAME-filename (in program) 
UNIT-5444 unit code or main data area code 
PACK-name 


LABEL-filename (on disk) 


RECORDS-number or TRACKS-number 


track number (simulation area only) 
LOCATION- cylinder number Maincdataaieasonly 
cylinder number/track number 


RETAIN-code 
DATE-date 
VERIFY-code 
SHAR E-code 


The NAME, PACK, and UNIT parameters are always required. The others are required 
only under certain conditions. 


NAME: The NAME parameter is always needed. It tells the system the name that your 
program uses to refer to the file. The NAME parameter must be placed on the first record 
or line if two or more records or lines are used for the FILE statement. (See General 
Coding Rules for rules on continuation.) 
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Programs requiring specific file names for disk files are as follows: 


Program File Name 

Copy/Dump Input COPYIN 
Output COPYO 
Output COPYP (Optional) 
Work $INDEX45! (Optional) 
Work $INDEX40° (Optional) 

Disk Sort Input INPUT or INPUT1 

INPUT2 through INPUT8 

Work WORK (Optional) 
Output OUTPUT 

CCP/Disk Sort Input $SOURCE 
Work $wWORK 
Input INPUT or INPUT1 Names 

INPUT2 through INPUT8 required only 

Work WORK for generation 
Output OUTPUT (compile) 

Dump/Restore Input BACKUP 
Output BACKUP 

Spool File Copy Output PRINTQ? (Optional) 
Output PUNCHO? (Optional) 
Input READERQ? (Optional) 
Output READEROQ? (Optional) 
Input CONTROL? (Optional) 
Output DISPLAYQ? (Optional) 
input RESTORE? (Optional) 
Input/update AUTHORIZ (Optional) 

Assembler Input $SOURCE 
Output $WORK 
Work $WORK2 

COBOL Input $SOURCE 

Compiler Work $WORK 
Work $WORKX 

FORTRAN Input $SOURCE 

Compiler Work $WORK 

System History Output $HISTORY 

Area Display 

System History Output $SHAFILE 

Area Copy 

RPG | Compiler — Input $SOURCE 
Work $WORK 

RPG I! Auto Input $SOURCE 

Report Work $WORK 


‘NF you supply a LABEL parameter in the FILE statement, it must be LABEL-$INDEX45. 
The file name can be replaced by the name specified on a control statement Parameter. 
If you supply a LABEL parameter in the FILE statement, it must be LABEL-$INDEX40. 
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Program File Name 


Macro Processor Output $SOURCE 

Overlay Linkage Input $SOURCE Optional — either both 
Editor Work SWORK present or both absent 
Spool (See Note) Work $SPOOL 

Any program Work $INDEX45! (Optional) 

adding to large (for main data area file) 

indexed files or or 

loading a large $INDEX40? (Optional) 

unordered (for main data area file) 

indexed file. 


Note: The $SPOOL file is internally generated by spooling and cannot be referenced on 
a FILE statement. 


The keyword, NAME, must be followed by the filename used by the program. The file- 
name can be any combination of characters except commas, apostrophes, or blanks. The 
first character must be alphabetic. The number of characters must not exceed 8. The 
following example shows how the NAME parameter for a file named FILEA would be 
coded: 










1 4 8 12 16 20 24 28 32 36 40 44 48 
VT Tell Waele lalla De) TT ET 
See EEE EEE EE TE EERE EERE MERE TERE 


UNIT: The UNIT parameter is always needed. It tells the system the simulation area or 
main data area that contains or will contain the file. The keyword, UNIT, must be 
followed by a code that indicates the area. Possible codes are R1, F1, R2, F2, D1, D2, 
D3 or D31, D32, 033, D34, D4 or D41, 042, D43, D44. 


The previous example shows how the UNIT parameter for a file located on the main data 
area D1 would be coded. 


PACK: The PACK parameter is always needed. It tells the system the name of the area 
that contains or will contain the file. The system checks this name to ensure that the 
proper area is being used. (For information about how an area is given aname, see Disk 
Initialization Program or Simulation Area Program in Part 4 of this manual.) 


The keyword, PACK, must be followed by the name of the area. The example under 


NAME shows how the PACK parameter for a file on an area named VOL1 would be 
coded. 


1g you supply a LABEL parameter in the FILE statement, it must be LABEL-$INDEX45. 
21 you supply a LABEL parameter in the FILE statement, it must be LABEL-$INDEX40. 
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LABEL: The LABEL parameter tells the system the name by which your file is identified 
or will be identified. 


if the file is being created, the name you supply in the LABEL parameter is used to 
identify the file. If you omit the LABEL parameter from a disk FILE statement, the 
name from the NAME parameter is used. 


When the name your program uses to refer to an existing disk file differs from the name 
by which the file is identified, you must supply a LABEL parameter. 


The keyword, LABEL, must be followed by the name of the file. The name can be any 
combination of characters except commas, apostrophes, or blanks. The first character 
must be alphabetic. The number of characters must not exceed 8. The LABEL param- 
eter for a file named PAYROLL is coded in the following example: 


2 


a0 











TRACKS or RECORDS: The TRACKS or RECORDS parameter is needed for files that 
are being created. The parameter tells the system the amount of space needed on disk for 
the file. 


If you use the TRACKS keyword, you specify the number of disk tracks needed for the 
file. 


If you use the RECORDS keyword, you specify the approximate number of records for 
the file. The total space allocated will be rounded up to full tracks, allowing adequate 
space to accommodate at least the number of records indicated. This means the file could 
hold more records than specified on the RECORDS keyword, allowing you to add more 
records to the file. Therefore, when using the copy/dump program ($COPY) to copy 

the file to another disk, you may have to specify more records than were specified in the 
RECORDS keyword when the file was created. 


Either TRACKS or RECORDS can appear in the FILE statement, but not both. The 
keyword must be followed by a number indicating the amount of space needed. 


When loading a new file at the same location as an existing file, using the LOCATION 
parameter, you must specify the same parameter (TRACKS or RECORDS) that was used 
when the existing file was created. (The existing file must be a temporary file.) 


Several versions of a file can be created on the same disk and be given the same name. If 
the TRACKS or RECORDS parameter you are using in creating a file is the same as the 
TRACKS or RECORDS specified for an existing file, you must specify LOCATION. You 
can reference each of these files by its name and date, or by its name and location on 
disk. Both date and location must be unique for each version. (See Example 2, Example 
4, and File Processing Considerations. } 


If TRACKS is used, the number must be within the range of 1—398 for a simulation area; 
1—3320 for a main data area on a 3340, and 1—3720 for a main data area on a 3344. The 
following example shows how the TRACKS parameter for a file requiring 20 tracks is 
coded: 








If RECORDS is used, the number can be up to six digits long. The RECORDS parameter 
for a file containing 250 records is coded as follows: 


43 











LOCATION: LOCATION is required when you create a file with the same LABEL (the 
date must be unique) and the same size as one that already exists (LOCATION is not 
required if sizes differ), load to an existing file, and load an offline multivolume file to 
volumes that contain other files. 


The LOCATION parameter can be used to specify the first track of anew file. It may 
also be used when a file is referenced, for a more specific identification check, and for 
identifying one of several files having the same name and same size. 

If you are creating a file, this parameter tells the system the number of the track on which 
the file is to begin. If you omit the parameter, the track is chosen for you. The system 
places the file in the smallest available space on the pack, leaving as few empty spaces 
as possible. 

If you are referencing a file, the parameter tells the system the number of the track on 
which the file begins. In this case, the system uses the track number to distinguish one 
file from another. 

For a simulation area, the LOCATION format is: 


LOCATION-track number 


Pe number must be between 8 and 405. 
Tracks O—7 are reserved for the system. 


For a main data area, the LOCATION format is: 


Slash is needed to separate cylinder number 
and track number (when both are specified) 


LOCATION-cylinder number/track number 


Track number must be between 0 and 19. Track 
number 0 is assumed if track number is not specified. 


Cylinder number must be between 1 and 166 (main 


data area on 3340) or 1 and 186 (main data area on 
a 3344). Cylinder 0 is reserved for the system. 
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RETAIN: The RETAIN keyword must be followed by a code that indicates the classifi- 
cations of the file. The codes are: 


Code Meaning 
S Scratch file 
T Temporary file 
P Permanent file 


A scratch file is used only once ina program and cannot be retrieved after the program 
has ended. To remove a permanent file you must use the file delete (SDELET) system 
service program. You can remove a temporary file by using the file delete (SDELET) 
system service program or by using a RETAIN-S parameter. A temporary file can be 
changed to a permanent file only if the file name is changed or copied as a permanent 
file. 


A temporary file is usually used more than once. The area containing a temporary file 
can be given to another file only under one of the following conditions: 


@ AFILE statement containing the RETAIN-S parameter is supplied for the temporary 
file and the file referenced (opened and closed) by the user program. This statement 
removes the file from the VTOC (volume table of contents) when the program with 
the FILE statement goes to end of job. The user must be aware of any external 
indicators that condition the use of that file. More information about deleting files 
is provided under General! Results When the 2 or 3 Option for a Message is Selected 
in the /BM System/3 Model 15 System Messages, GC21-5076. 


@ Another file with the same LABEL name is loaded into the exact area occupied by 
the temporary file, but this only changes the data. Space and location parameters 
are required. You must specify the same parameter (TRACKS or RECORDS) that 
was used when the existing file was created. For example, if the TRACKS parameter 
was specified when the FILE was created, you must use the TRACKS parameter when 
reloading the same location on the pack. 


@ The file delete program is used to delete the file. 


The area containing a permanent file cannot be used for any other file until the file 
delete program has deleted the permanent file. 


A disk file is classified as scratch, temporary, or permanent when it is created. If the 
RETAIN parameter is omitted from the FILE statement when the file is created, the file 
is assumed to be a temporary file. You may omit the RETAIN parameter when accessing 
an existing file. 


Notes: 

1. The output file will be scratched (deleted) if all three of the following conditions 
exist at end of job step: 

a. A pack containing an input file is not online at the start of the job 
(deferred mount). 

b. The output file is to be written over the input file (load to old). 

c. RETAIN-S is used on the FILE statement for the input file. 

To prevent the deletion of the output file, you should use RETAIN-T for the 

input file. 

2. You should reload an existing temporary file (load to old) with files of like attributes. 
If an existing indexed file is reloaded with a sequential file, the new data will overlay 
only the data portion of the indexed file. The index portion of the file wil! remain 
intact but will not be usable. 


The RETAIN parameter for a permanent file is coded as follows: 






20 24 28 32 36 40 44 48 56 
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DATE: The DATE parameter tells the system the creation date of an input file. It is 
used to ensure that the proper version of the file is used. The date specified is compared 
with the creation date contained in the file label. No comparison is done when DATE is 
not specified. 


For output files, the partition date is always used as the creation date. If the DATE 
parameter is specified for an output file, the system compares the specified date with the 
creation date of the existing file. If no file exists, or if the dates do not agree, the system 
halts. (See /nterval Timer for information on the effect of the interval timer on date.) 


The date may be coded in one of two formats: month-day-year (mmddyy), or 
day-month-year (ddmmyy). The format must match the format of the system date 
chosen during system generation. The date may be coded with or without punctuation. 
Blanks, commas, numbers, or apostrophes are not allowed as punctuation. Leading zeros 
in month and day may be omitted if punctuation is used. 


To illustrate this parameter, assume that two versions of a file are written on the same 
main data area. tn the next example are the NAME, LABEL, and DATE parameters for 
two versions of a file on the same main data area, one written on April 5, 1976, the other 
on August 3, 1976. Both files have the same label: FO0001. 
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VERIFY: The VERIFY parameter is used to specify verification of disk write operations 
for this file in this step (main data area only). If VERIFY-YES is specified, verification 
takes place. If VERIFY-NO is specified, write verification is bypassed. If VERIFY is not 
specified, VERIFY-YES is assumed unless RETAIN-S is coded, in which case VERIFY-NO 
is assumed. Verification is always done when a simulation area is accessed. 


SHARE: The SHARE parameter is used to allow or disallow file sharing between parti- 
tions if the access methods are compatible. If SHARE-YES is specified, file sharing is 
allowed between partitions (offline multivolume files cannot be shared); SHARE-NO 
does not allow file sharing between partitions. If RETAIN-S is specified on the FILE 
statement, file sharing is not allowed. If this parameter is omitted, SHARE-YES is 
assumed. For additional information about file sharing, refer to File Sharing in Part 2 
of this manual. 


The following are examples of FILE statements. In each example, the file is described 
first, then the corresponding FILE statement is shown. 


Example 1: Suppose that each week you create a disk file that contains the records for 
the transactions you had made that week. Assume the following facts about that file: 


@ The name your program uses to refer to the file is TRANS, which is also the name you 
want to use to identify the file on disk. 


@ You are placing the file in a main data area named VOLO3. 
@ You intend to mount the data module on drive 2. 

@ You want to save the file for use at the end of the month. 
@ The file contains 225 records. 


@ You are letting the system choose the area that will contain the file. 


The following example shows how the FILE statement for the preceding file is coded: 














Example 2: Suppose you had created, on the same data module (VOLO3), four versions 
of the transaction file described in the preceding example—one for each of the weeks in 
February 1976. Assume the following: 


@ You had created the files on the following days: 2/6/76, 2/13/76, 2/20/76, and 
2/27/76 (these were the system dates used for each of the files). 


@ You want to reference the third file (the one created 2/20/76). 
@ You intend to mount the data module on drive 2. 


The FILE statement you would need is: 





FA 
i SH GEVBMSSOUOONALIAE 





Example 3: Suppose that at the end of the month you combine the files referred to in 
example 2, for use in preparing your monthly bills. Further assume the following: 


@ Your program uses the name TRANS to refer to the file, but you want to use the name 
BILLING to identify the file on disk. 


@ You are expressing the amount of disk space as the number of tracks required to con- 
tain the file (assume the number is 15), and you want the file to begin on cylinder 8, 
track 0. 


®@ You are placing the file in a main data area named VOLO3. 


@ You intend to mount the data module on drive 2. 


The following example shows the FILE statement you would use for this file. 
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Example 4: Suppose you want to create two versions of two files on disk and later to 


access one version of each file. Further assume the following: 


@ The names your program uses to refer to the files are AA and BB, which are also the 


names you want to use to identify the files on disk. 


@ Files AA and BB are being placed on a data module on drive 2 named D2D2D2. 


@ One version of each file is created on 1/12/76 and 1/13/76. 


@ Disk space and location for the files are: 


Tracks Location 


Version 


File 


120/0 
130/0 


10 
10 


1/12/76 


AA 


1/13/76 


140/0 
150/0 


20 
20 


1/12/76 
1/13/76 


BB 


© You want to access file AA, version 1/1 2/76, and file BB, version 1/13/76. 


iles AA and BB 


The following OCL statements are needed to Create the above versions of f 


and to access a version of each file. 
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Fite Processing Considerations 


Spooling Considerations 


LOCATION and space (TRACKS or RECORDS) must be specified when you are reload- 
ing an existing temporary file. You must specify the same parameter (TRACKS or 
RECORDS) that you used when the existing file was created. 


If you are referencing a file by the DATE parameter and space is given, the space must 
be equal to the space given when that file was created. 


If you are accessing a file by the LOCATION parameter and space is given, the space 
must be equal to the space given when that file was created. 


You can create several versions of a file with a program by changing the locations of the 
files and using different partition dates. 


You can create different versions of a file without LOCATION if the space parameters as 
well as the partition dates are different. 


The DATE parameter is allowed only for accessing existing files. 


Whenever a load is performed to an existing file (load to old), the partition date replaces 
the previous date for that file. 


The only file that can be reloaded is a file that has a RETAIN-T classification. 


When a scratch file is created, it is not entered in the volume table of contents (VTOC). 
After the job step that created the file is executed, the file cannot be accessed. 


None 
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The FILE statement supplies the system with information about disk files. The system 
uses this information to read records from and write records on disk. 


You must supply a FILE statement for each of the new disk files that your programs 
create, and for each of the existing disk files that your programs use. The FILE statement 
must follow the LOAD or CALL statement and precede the RUN statement. 


// FILE parameters 


The FILE statement for multivolume disk files requires special considerations when you 
define and code these keyword parameters: PACK, UNIT, TRACKS or RECORDS, 
HIKEY, and LOCATION. The maximum number of multivolume files allowed is 
explained under Scheduler Work Area in Part 2 of this manual. These considerations 
are necessary for the following reasons: 


@ When processing disk files contained on more than a single volume, the system requires 
information about each volume to perform all the necessary protection and checking 


functions. 


® Additional information is needed to determine and check the sequence in which the 
volumes are processed and when they are to be mounted on the disk drives. 


The rules for coding a list of data or codes after a keyword are as follows: 
© The list must be enclosed by apostrophes. 


@ The items in the list must be separated by commas. No blanks are allowed within or 
between items (HIKEY can contain blanks). 


The following example shows lists in parameters. The file is an online multivolume file 
(number of units = number of volumes). 
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The PACK, LOCATION, TRACKS or RECORDS, and HIKEY parameters require lists. 
The UNIT parameter may require a list. The considerations for using the lists in these 
parameters are included in the following parameter discussions. (Parameters not men- 
tioned here are used as explained under the F/LE Statement [Single Volume Disk Files] .) 


PACK: The names of the volumes that contain or will contain the multivolume file must 
follow the keyword PACK. (PACK names must be unique for proper functioning.) 


When a multivolume file is created, the system writes a sequence number on the disks to 
indicate the order of the volumes. The volumes are numbered in the order in which you 
list their names in the PACK parameter. 


When a multivolume file is processed, the system provides two checks to ensure that the 
volumes are used in the proper order: 


@ It checks to ensure that the volumes are used in the order that their names are listed in 
the PACK parameter. 


@ \t checks the sequence numbers of the volumes used to ensure that they are consecu- 
tive and in ascending order (01, 02, and so on). 


The system stops when it detects a volume that is out of sequence. The operator can do 
one of three things: 


@ Mount the proper volume (if dismount is allowed) and restart the system. 

© Restart the system and process the volume that is mounted if the sequence is ascending 
(for indexed files processed offline, consecutive input, and consecutive update pro- 
cessing). 

@ End the program. 

Consecutive input or update sequence numbers do not exist if the file was not created as 


a multivolume file. If a file is created as multivolume and the sequence is ascending but 
not consecutive, a diagnostic halt is given. 


The following is an example of the PACK parameter for an offline multivolume file that 
is contained on three volumes, named VOL1, VOL2, and VOL3: 











UNIT: The keyword UNIT must be followed by a code or codes indicating the location 
on the disk unit that contains or will contain the file. No UNIT parameter may be 
repeated. Possible codes for offline multivolume files are D1 and/or D2. (D1 is a possible 
code only if the IPL was performed from drive 3). Possible codes for online multivolume 
files are D1, D2, D3 or D31, D32, D33, D34, D4 or D41, D42, D43, and D44. 


The order of codes in the UNIT parameter must correspond to the order of names in the 
PACK parameter. 


When the system is processing offline multivolume files and more than one unit is speci- 
fied, the unit parameters must be in ascending sequence. 
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When you are creating or processing a sequential or indexed file, you can use the same 
drive for more than one of the volumes; however, the volumes must then all be removable. 
If you do use the same drive, you must not repeat the code for the drive in the UNIT 
parameter. When the number of codes in the UNIT parameter is less than the number of 
names in the PACK parameter, the system uses the codes alternately. 


If you specify a volume on drive 3 or drive 4, the file must be online multivolume. 


Assume that your program processes an offline file consecutively. Further assume the 
following: 


® The disks containing the file are named VOL1, VOL2, and VOL3, respectively. 


@ You intend to mount VOL1 and VOL3 on 3340 drive 1, and VOL2 on 3340 drive 2. 
(The IPL must be performed from drive 3.) 


In the following, @) shows the PACK and UNIT parameters for the file. If all three 
volumes were used on 3340 drive 2, the UNIT parameter in (B) would have been used. 








TRACKS or RECORDS: These keywords, TRACKS or RECOR DS, must be followed by 
numbers that indicate the amount of space needed on each of the volumes that will con- 
tain the multivolume file. TRACKS or RECORDS must be specified. Any multivolume 
file load requires a TRACKS or RECORDS parameter whether the file previously existed 
or not. The order of these numbers must correspond to the order of the names in the 
PACK parameter. For example, assume the following: 


© The program is creating a sequential (offline) file on three volumes: VOL1, VOL2, and 
VOL3. 


@ The first 50 records are to be placed on VOL1, the next 500 on VOL2, and the last 200 
on VOL3. 


The PACK and RECORDS parameters for the file are: 











LOCATION: The keyword LOCATION must be followed by the numbers of the tracks 
on which the file is to begin on each of the volumes you use for the file. The order of the 
numbers must correspond to the order of the names in the PACK parameter. For 
example, assume the following: 

@ The volumes containing the file are VOL1, VOL2, and VOL3. 

@ The file is to begin on cy! 100 in VOL1, cyl 10 in VOL2, and cyl 8 in VOL3. 


The PACK and LOCATION parameters for the file are shown in the following example. 
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If you omit the LOCATION parameter, the system chooses the beginning track on each 
of the volumes. When an offline multivolume file is created, offline volumes cannot 
contain files if the LOCATION parameter is not specified. If LOCATION is specified 
for one volume, it must be specified for all volumes. If the multivolume file exists, 
LOCATION given for all volumes must be identical to the LOCATION parameters speci- 
fied when the file was created. 


RETAIN: RETAIN-S must not be specified unless the file is online multivolume. 


HIKEY: The HIKEY parameter is used only for multivolume indexed files. HIKEY 
limits the highest key field that can be put on each volume of a multivolume file. The 
fotlowing example contains an example of a HIKEY parameter list. In this case, the 
three volumes contain lists of names. The highest keyfield allowed on the first volume is 
JONES. This means that all the records beginning with A and including JONES will be 
processed on this volume. Since HIKEY parameters must be in ascending order, the next 
volume will contain all of the records with names following JONES and including 
NICHOL. The last volume will contain all the records with names that come after 
NICHOL. 
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OCL considerations for the HIKEY parameter are: 

@ All characters except commas are valid. 

@ The list of HIKEY parameters must begin and end with an apostrophe even if only 
one parameter is specified. A single apostrophe in a key field must be written as a 


double apostrophe in the HIKEY parameter. 


@ For each PACK parameter specified, there must be a corresponding HIKEY key field 
parameter for that pack. 


FILE Statement (Multivolume Disk Files) 1-43 


@ The HIKEY fields must be equal in length and must be specified in ascending order. 
®@ The maximum length of a HIKEY field is 29 characters. 
@ The HIKEY fields must be the same length as the keys on file. 


® Continuation of HIKEY sublists must begin in column 4 of the continuation record 
following the // blank. 


© Comments must not follow the last comma on a FILE statement when the last parameter 
is an incomplete HIKEY sublist. 


Packed HIKEY: The packed HIKEY parameter has all the OCL considerations for 
HIKEY, including the following restrictions: 


© The first character following the HIKEY keyword and hyphen (HIKEY-) must be a P 
to indicate packed HIKEY, 


@ All characters in the packed HIKEY must be zoned numerics (0-9). 
@ The number of digits in each packed key must be the same. 


@ The number of zoned numeric characters per packed HIKEY must not exceed 15, since 
the maximum packed key field length is 8. 


The following example shows a packed HIKEY parameter. In the example the key field 
length of MVFILE is 2. The HIKEYs are X‘085F’, X‘092F’, and X‘108F’ for VOL1, 
VOL2, and VOL3, respectively. The first two packed keys required a leading zero to 
make the lengths consistent. 
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Function 


Placement 


Format 


Contents 


The FILE statement supplies the system with information about tape files. The svstem 
uses this information to read records from and write records to tape. 


You must supply a FILE statement for each new tape file that your program creates and 
for each existing tape file that your program uses. The maximum number of files allowed 
is explained under Scheduler Work Area in Part 2 of this manual. 


// FILE parameters 


All parameters are keyword parameters. The parameters are as follows (keywords are in 
capital letters): 


NAME-filename (in program) 
UNIT-code 

name 

NL 


NS 
BLP 


REEL- 


filename (on tape) 
‘character string’ 


LABEL- \ 
DATE-date 
RETAIN-code 

BLKL-block length 


RECL-record length 


o< m7 


RECFM- 


LEAVE 
END- < UNLOAD 
REWIND 


200 
556 
800 
1600 


DENSITY- 


YES 
NO 


ascit | 
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YES 
DEFER- ; NO 


OFF 
CONVERT- { SN 


TRANSLATE { ON 


EVEN 
PARITY- \ ODD 


SEQNUM- es 


OFF 


1 Sequence number 


The NAME and UNIT parameters are always required. The others are required only under 


certain conditions. 


NAME: The NAME parameter is always required. It tells the system the name that your 
Program uses to refer to the file. The NAME parameter must be placed on the first card 
or line if two or more cards or lines are used for the FILE statement. (See Genera/ Coding 


Rules for rules on continuation.) 


Programs requiring specific filenames for tape files are as follows: 


Program 


Tape Sort 


Copy/Dump 


Disk Sort 


Dump/Restore 


$HIST 
$FCOMP 


(tape support 
only) 
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File 
Input 


Output 
Work 


Input 
Output 


Input 
Output 


Input 
Output 


Output 


Input 
Output 


Name 


INPUT 

OUTPUT 

WORK1 

WORK2 

WORK3 

WORK4 (optional) 


COPYIN 
COPYO 


INPUT or INPUT1 
INPUT2 through INPUT8 
OUTPUT 


BACKUP 
BACKUP 


$HISTORY 


BACKUP 
BACKUP 


Program 


Spool File Copy 


File 


Input 
Output 
Input 
Input 
Output 
Output 
Output 
Output 


Name 


$SPOOL (optional) 
$SPOOL (optional) 
READER(Q! (optional) 
RESTORE! (optional) 
DISPLAYQ! (optional) 
PRINTQ! (optional) 
PUNCHO! (optional) 
READERO! (optional) 


The keyword NAME must be followed by the filename used by the program. The first 
character of the NAME must be alphabetic. The remaining characters may be any com- 
bination of characters except commas, apostrophes, or blanks. The number of characters 
must not exceed 8. The following example shows how the NAME parameter for a file 
named FICAOUT would be coded: 





UNIT: The UNIT parameter is always required. It tells the system the tape unit that 
contains or will contain the file. The keyword UNIT must be followed by a code that 
indicates the unit. The codes are as follows: 


Code 


T1 


T2 


T3 


T4 


Meaning 

Tape unit 1 
Tape unit 2 
Tape unit 3 


Tape unit 4 


The previous example shows how the UNIT parameter would be coded for a file that 
resides on tape unit 2. 


1 The file name can be replaced by the name specified on a control statement parameter. 
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REEL: The REEL parameter is required for tape input files and optional for output 
files. It identifies the tape that contains or will contain the file. The system uses this 
Parameter to ensure that the correct tape is being used. (For information about how a 
tape is initialized and identified, see Tape Initialization Program — $TINIT in Part 4 of 
this manual.) The keyword REEL must be followed by one of the following codes: 


REEL-nnnnnn This format is used for labeled tape files. You identify the volume by 
coding a maximum of 6 characters, excluding commas, apostrophes, 
and blanks. NS, NL, and BLP have special meanings and may not be 
used as the name of the reel. 


REEL-NL This coding indicates a tape file without a label. The first record of an 
unlabeled tape must not be an 80-byte record with VOL1 as the first 
4 characters. 


REEL-NS This coding indicates an input tape file with a non-standard label. These 
labels do not adhere to the IBM Tape Label Standard. The first record 
of a nonstandard labeled tape must not be an 80-byte record with 
VOL1 as the first 4 characters. REEL-NS is invalid for output files. 


REEL-BLP This coding indicates that label processing of standard labeled input 
tapes should be bypassed. 


If the REEL parameter is not specified for an output file, the system assumes that the 
output tape contains standard labels. If REEL-NS or REEL-NL is used, the LABEL, 
DATE, and RETAIN parameters may not be entered. REEL-BLP may not be specified 
for an output tape. 


Note: User labels are file labels that follow standard header and trailer label conventions 
(ANSI or IBM). They are a variation of standard labels with a partially fixed format. 
These labels are sometimes provided by other systems. User labels are not checked by 
Model 15 tape data management and may not be written as part of the labe! group. 


The example under NAME shows how the REEL parameter would be coded for a file on 
a tape named TAPE1. 


LABEL: The LABEL parameter tells the system the name (label) of the tape file as it 
exists in the header label. 


For file creation, the name you supply in the LABEL parameter is used in the header 
label. If you omit the LABEL parameter, the name from the NAME parameter is used 
unless REEL-NS, REEL-NL, or REEL-BLP is also specified. Up to 8 characters may be 
supplied in the LABEL parameter. 


For existing files, you must supply the LABEL parameter if the name in the tape label is 
different from the name your Program uses to refer to the file (the NAME parameter). 
If the header label contains a name longer than 8 characters, only the first 8 characters 
are recognized by the system for comparison. 


The LABEL parameter may not be used with the parameters REEL-NS, REEL-NL, or 
REEL-BLP. The LABEL parameter can be coded as foitows: LABEL-name. 


The name entry must begin with an alphabetic character and the remaining characters 
must not be commas, apostrophes, or blanks. 


A label may also be identified by special characters. The character string must be 
enclosed in apostrophes, may not contain commas, and may not be longer than 8 charac- 
ters; for example, LABEL-‘character string’. If an apostrophe is used as a character, it 
must be coded as 2 apostrophes. 


DATE: The DATE parameter tells the system the creation date of an input file. it is 
used to ensure that the proper version of the file is used. The date specified is compared 
with the creation date contained in the file label. No comparison is done when DATE is 
not specified. 


For output files, the partition date is always used as the creation date. If the DATE 
parameter is specified for an output file, the system compares the specified date with the 
creation date of the file already on the tape. If no file exists on the tape, or a file with a 
different label exists, or the dates do not agree, the system halts. (See /nterva/ Timer or 
DATE Statement for more information about the effect of the interval timer on date.) 


The date may be coded in one of two formats: month-day-year (mmddyy) or 
day-month-year (ddmmyy). The format must match the format of the system date 
chosen during system generation. The date may be coded with or without punctuation. 
Blanks, commas, numbers, or apostrophes are not allowed as punctuation. Leading zeros 
in month and day may be omitted if punctuation is used. 


The DATE parameter may not be specified with REEL-NS, REEL-NL, or REEL-BLP. 


RETAIN: The RETAIN parameter specifies the number of days a file should be retained 
before it expires. This number may be from 0 to 999. After the number of days has 
elapsed, the file expires and the system allows the file to be written over. If the RETAIN 
parameter is omitted, a value of zero is assumed. A value of 999 indicates a non-expiring 
permanent tape file. 


If an attempt is made to write over an unexpired file, the system halts, allowing the 
operator to cancel the job or continue. A tape containing a permanent tape file must be 
reinitialized before it can be used for output. The RETAIN parameter may not be used 
with REEL-NS, REEL-NL, or REEL-BLP. 


BLKL: The BLKL (block length) parameter specifies the number of bytes in a physical 
block of data on tape. The minimum size fixed length block (FB) that can be specified 
is 18. Variable length (VB or DB) blocks are padded with hex 00 (EBCDIC) or hex 5E 
(ASCII) when necessary to meet the 18-byte minimum block length. The maximum size 
block that can be specified, regardless of record format, is 32,767. When fixed blocked 
(FB) records are used, block length must be an integral muitiple of record length. Fora 
file containing blocked EBCDIC variable length (VB) records, the block length must 
include the 4-byte biock descriptor and the 4-byte record descriptor(s). For blocked 
ASCII variable length (DB) records, the buffer offset length and the 4-byte record des- 
criptor(s) must be included in the block Jength. 


RECL: The RECL (record length) parameter specifies the number of bytes in a logical 
tape record. The minimum record length for fixed (F) or fixed block (FB) records is 18 
bytes. Unblocked variable fength (V or D) records are padded with hex 00 (EBCDIC) or 
hex 5E (ASCII), when necessary, to meet the 18-byte minimum block length requirement. 
For files containing variable length (V or D) records, the record length must include the 
4-byte record descriptor. 
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RECFM: The RECFM (record format) parameter identifies the format of the input or 
output file records. The parameter entries are: 


F Fixed length, unblocked records. Logical and physical records are the 
same size. 
V Variable length, unblocked records. Each physical record contains one 


logical record; the logical record can vary in length. 
D Variable length, unblocked records in the D-type ASCII format. 


FB Fixed length, blocked records. All records are of equal length and all 
blocks are of equal length. Each physical record contains more than one 
logical record. 


VB Variable length, blocked records. Each physical record contains logical 
records of various lengths. 


DB Variable length, blocked records in the D-type ASCII format. 


END: The END parameter specifies the position of the tape after the file has been pro- 
cessed. The options are as follows: 


LEAVE The tape remains in the position it was in after the last record was read 
or written. 


REWIND The tape is rewound to the load point. 
UNLOAD The tape is rewound and unloaded for removal from the tape drive. 
If the END parameter is omitted, REWIND is assumed. 


DENSITY: The DENSITY parameter is used to specify the number of bpi (bits per inch) 
at which files are to be written or read. 


The parameter must specify the density at which the tape was initialized. See $7/N/T 
(tape initialization program) description in Part 4 of this manual. For 9-track tapes, this 
parameter affects only the density of nonlabeled output files. When standard labeled or 
nonstandard labeled tapes are used, the 9-track tape hardware automatically determines 
the density at which the tape was initialized. When a tape is initialized to 1600 bpi with 
standard lables, any file that is written on that tape is in 1600 bpi, regardless of the 
Parameter specified for DENSITY. No error halts occur if the wrong 9-track density is 
specified. The parameter entries are: 


1600 The file is to be written at 1600 bpi (valid for all 9-track tape units). 

800 The file is to be written (7- or 9-track tape units) or read (7-track tape 
units) at 800 bpi (valid for 9-track dual density tape units or for all 7-track 
tape units). 

556 The file is to be written or read at 556 bpi (valid for all 7-track tape units). 

200 The file is to be written or read at 200 bpi (valid for all 7-track tape units). 


If the DENSITY parameter is omitted, 1600 bpi is assumed on 9-track tape units, and 800 
bpi is assumed on 7-track tape units. 


ASCII: The ASCII parameter is used to indicate to the system when an ASCII file is 
being used. If ASCII files are being used, ASC!I-YES must be coded. ASCII-YES is 
invalid for files on 7-track tape units. If this parameter is omitted or coded ASCIHI-NO, 
an EBCDIC file is assumed. 


DEFER: The DEFER parameter tells the system whether the file will be mounted on a 
tape drive when the file is allocated and opened. If the tape volume is not online, 
DEFER-YES must be coded. If the parameter is omitted, DEFER-NO is assumed. 


Note: For RPG II object programs, this option should be used only for files that use the 
same drive as a table file. All other files are allocated and opened at the beginning of the 
program. 


Other programs (such as COBOL object programs), which do not allocate and open al! 


files at the same time or do it conditionally by program logic, should not use the 
DEFER-YES option. 


CONVERT: The CONVERT parameter tells the system whether the data converter will 
be turned on or off. This parameter is valid only for 7-track tape files. CONVERT-ON 
causes 7-track data to be processed in 8-bit binary form. The converter writes three main 
storage characters as 4 tape characters and converts the opposite way when reading. 
CONVERT-ON must be specified when variable length records are processed on 7-track 
tape files. Specifying both CONVERT-ON and TRANSLATE-ON is invalid. If this 
parameter is omitted, CONVERT-OFF is assumed. 


TRANSLATE: The TRANSLATE parameter tells the system whether the data translator 
will be turned on or off. This parameter is valid only for 7-track tape files. 
TRANSLATE-ON causes 7-track data to be processed in 6-bit BCD form. The translator 
writes 8-bit EBCDIC main storage characters as 6-bit BCD tape characters and translates 
the opposite way when reading. Specifying both TRANSLATE-ON and CONVERT-ON 
is invalid. If this parameter is omitted, TRANSLATE-OFF is assumed. 


Note: tf CONVERT-OFF and TRANSLATE-OFF are specified, only the 6 low-order bits 
of the main storage character are written on the tape. When the system is reading with 
CONVERT-OFF and TRANSLATE-OFF, the 2 high-order bits of the main storage 
characters are set to zeros. 


PARITY: The PARITY parameter is used to specify the parity at which tape characters 
will be processed. This parameter is valid only on 7-track tape files. Data conversion 
(CONVERT-ON) is invalid with even parity (PARITY-EVEN). If this parameter is 
omitted, PARITY-ODD is assumed. 
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Note: The foliowing are the valid combinations for TRANSLATE, CONVERT, and 
PARITY parameters: 


PARITY-ODD, TRANSLATE-OFF, CONVERT-OFF 
PARITY-ODD, TRANSLATE-ON 

PARITY-ODD, CONVERT-ON 

PARITY-EVEN, TRANSLATE-OFF, CONVERT-OFF 
PARITY-EVEN, TRANSLATE-ON 


SEQNUM: The SEQNUM parameter is used to specify the number of the file when the 
reel contains more than one file (multifile volume). The number to use is the number 
that was assigned when the file was written. The default value is 1. 


lf SEQNUM-number is used with REEL-BLP, the system will search the tape for a 
standard label HDR1 record that contains the same file number, When the record is 
found, further processing of the label group is terminated. The system then positions 
the tape to the file data. 


SEQNUM-X on the FILE statement indicates that the tape has been previously positioned 
to the desired file, and no positioning is done before processing. See F/LE Statement 
(Multifile Tape Volumes) for more information on the uses of this keyword. 


7-Track Considerations 


CONVERT, TRANSLATE, PARITY and/or DENSITY must be specified for an input 
file if other than the default parameters were specified for output when the file was built; 
otherwise, tape runaway or data check occurs. 


If an output file has REEL-NL on the FILE statement, the reel must have been initialized 
with REEL-NL by the $TINIT (tape initialization) program; otherwise, tape runaway or 
data check occurs. 


If an output file has REEL-NL on the FILE statement and there is a file existing on the 
tape, tape runaway or data check will occur if TRANSLATE, CONVERT, PARITY, 
and/or DENSITY parameters for the new file do not match the characteristics of the old 
file. Reinitialize the tape using $TINIT with REEL-NL if this occurs. 


None 


TAPE FILE STATEMENT SUMMARY 


Req = Required 
Opt = Optional (Refer to the discussion of a particular Parameter to determine whether it is required for your program.) 
N/A = Not Applicable 


Defaults are underlined 






Applicability 


NAME-filename (in program) | Req 1-8 characters 


UNIT- 11 
T2 
T3 
T4 



















REEL-name NL, NS, and BLP are not used with LABEL, DATE, 
NL RETAIN; NS and BLP are invalid for output. If REEL 
NS is not specified for output files, standard labels are 











assumed. *REEL optional for output. 


1-8 characters 
Not used with REEL-NS, -NL, or -BLP. 


Not used with REEL-NS, -NL, or -BLP 


LABEL-filename (on tape) 


character string 


DATE-mmddyy 
ddmmyy 


RETAIN-nnn O 


BLKL-block tength 


Op 
Pp 


Oo 










Opt t 
Opt t 

pt t Code = 0.999; default = 0; not used with 
REEL-NS, -NL, or -BLP. 


Opt Block length 18-32767 








Op 















Opt 
RECL-record length Record length 18-32767 
RECFM-F FB Opt Opt 
V VB 










D DB 


END-LEAVE 
REWIND 
UNLOAD 


Default is REWIND 





Opt Opt 
































DENSITY-1600 Opt Opt Default is underlined 
800 1600 800 
556 800 556 
200 


Opt N 







ASCII-YES 
NO 
DEFER-YES O 
NO 


pt 
CONVERT-OFF N/A 


Defauit is NO; EBCDIC assumed if ASCII-NO 


Default is NO. 
CONVERT-ON is required if processing V, VB; 
Default is OFF. 


NR 
o 


° 


/A 
Opt 
Opt 

t 











on pee 
TRANSLATE-OFF N/A Op Default is OFF 
ON 
PARITY-ODD N/A Default is ODD 
EVEN 
SEQNUM-X Opt Opt Default is 1. 
nnnn 
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Combinations of 7-Track Specifications 


Convert 
OFF 
OFF 
OFF 
OFF 
ON 

ON 

ON 


ON 


Translate 
OFF 
OFF 

ON 

ON 

OFF 
OFF 

ON 


ON 


Parity 
ODD 
EVEN 
ODD 
EVEN 
ODD 
EVEN 
ODD 


EVEN 


valid 


valid 


valid 


valid 


valid 


invalid 


invalid 


invalid 
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The FILE statement supplies the system with information about files. The system uses 
this information to read records from and write records to tape. 


You must supply a FILE statement for each new tape file that your program creates and 
for each existing tape file that your program uses. The FILE statement must follow the 
LOAD or CALL statement and precede the RUN statement. 


// FILE parameters 


The FILE statement for processing multivolume tape files requires that you define and 
code the UNIT and REEL parameters differently than you would for single volume files. 
There are two reasons for this: 


@ When processing tape files contained on more than a single volume, the system requires 
information about each volume in order to perform all the necessary checking and pro- 
tection functions. 


® Additional information is needed to determine and check the sequence in which the 
volumes are processed and when they are to be mounted on the tape drives. 


For multivolume tape files, the UNIT and REEL parameters of the FILE statement may 
require a list of codes. When you code a list of codes, the following rules apply: 


@ The list must be enclosed by apostrophes. 
@ The items in the list must be separated by commas. 
@ Intermixing 7- and 9-track units is not allowed. 


The considerations for coding multivolume parameters are included in the following 
parameter discussions. The functions of the parameters are explained under F/LE State- 
ment (Single Volume Tape Files), Parameters not mentioned here are used as explained 
under F/LE Statement (Single Volume Tape Files). 


The maximum number of multivolume files allowed is explained under Scheduler Work 
Area in Part 2 of this manual. 


REEL: The names of the tapes that contain or will contain the multivolume file must 
follow the keyword REEL. If the input tapes are not labeled or contain nonstandard 
labels, or if label processing is to be bypassed, the REEL parameter must be coded 
REEL-’NL,n’, REEL-‘NS,n’, or REEL-‘BLP,n’, where n is the number of volumes in the 
file (99 volumes maximum). For output files, the n in REEL-‘NL,n’ is ignored. 


UNIT: The keyword UNIT must be followed by a code or codes indicating the location 
of the tape unit that contains or will contain the file. No UNIT parameter may be 
repeated. The order of codes in the UNIT parameter must correspond to the order of 
names in the REEL parameter. When the number of codes in the UNIT parameter is less 
than the number of codes in the REEL parameter, the units are used alternately. 
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Examples In the following examples, (A) shows a tape multivolume file consisting of three reels. 
The volumes must be mounted as follows: 


INVRL1 on tape unit T1 
INVRL2 on tape unit T2 
INVRL3 on tape unit T3 


(8) shows a three-volume file with nonstandard tape label. The volumes must be mounted 
as follows: 


First volume on tape unit T1 
Second volume on tape unit T2 
Third volume on tape unit T1 


©) shows a three-volume file with unlabeled reels. The volumes must be mounted in 
sequence on tape unit T1. 


(0) shows the three-volume standard labeled file used in line @), but with label pro- 
cessing bypassed. 
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FILE Statement (Multifile Tape Volumes) 


Function 


Placement 


Format 


Contents 


The FILE statement supplies the system with information about tape files. The system 
uses this information to read records from and write records to tape. 


You must supply a FILE statement for each new tape file that your program creates and 
for each existing tape file that your program uses. The FILE statement must follow the 
LOAD or CALL statement and precede the RUN statement. 


// FILE parameters 


More than one file can exist on a ree! of tape. If this is the case, each file has an associated 
file number. The SEQNUM parameter indicates the file number and must be specified on 
the tape FILE statement. The system positions the tape to the desired file using this 
parameter. Only the parameters that pertain to multifile tape volumes are discussed. All 
other tape FILE parameters are described in F/LE Statement (Single Volume Tape Files). 


The SEQNUM keyword for multifile volume tape files has the following parameters: 


SEQNUM-nnnn 
-X 


where nnnn = file sequence number, assigned when the file was written. Default value 
is 1. The number indicates the relative position of the file in a volume 
of files and is incremented by one from one file to the next. 


X = prepositioned file. A user routine or END-LEAVE has prepositioned 
the tape to the desired place for input or output. 


END-LEAVE, when coded on the FILE statement, causes tape to be left (not rewound) 
at the place where processing was completed. 


If several files are to be processed from a single volume, the user can decrease file alloca- 


tion time by (1) coding END-LEAVE on the FILE statement for each of the files that are 
to be accessed, and (2) processing the files in the order in which they reside on tape. 
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Prepositioned Tapes (SEQNUM-X on the FILE Statement) 


The user can preposition a file for input or output and, in a subsequent job or job step, 
begin file processing at the prepositioned point. The prepositioning can be accomplished 
several ways. For example: 


®@ An RPG II program can process an input tape and, at some point, set on the LR indi- 
cator to force end of job. 


@ The same technique can be used by object programs produced by other compilers 
{or the assembler), that is, force (or call) end of job before the input file has been 
processed to end of file. 


END-LEAVE would have to be coded on the tape FILE statement, or else the tape would 
be rewound at end of job. 


When tape has been prepositioned, for input or output, SEQNUM-X must be coded on 
the tape FILE statement. 


If a standard labeled tape has been prepositioned, label verification will not be performed 
by the system. That is, the file label, date, and volume sequence information in the HDR1 
label will not be checked nor will the record format, block length, record length, and 
recording technique (translate, convert, parity) information in the HDR2 label be checked. 
These fields are normally compared to the FILE statement and/or program DTF. Label 
verification will be performed, however, if the tape was prepositioned to the start-of-a-file 
(before the HDR1) record. 


Restrictions on the Use of Multifile Tapes 


The following restrictions must be adhered to when multifile tape volumes are used: 


@ All files in the volume must be labeled in the same manner, that is, all standard labeled 
files or all unlabeled files. 


@ All files in the volume must be recorded in the same density. 
@ All files must be recorded in the same mode (translate, convert, and parity). 


@ If the last file on a multifile reel is continued on a subsequent reel, the two reels con- 
stitute an aggregate. The preceding three restrictions apply to all volumes of the 
aggregate. In addition, all volumes of the aggregate must be either 7- or 9-track. 


@ Standard labeled 7-track tapes, if prepositioned, should be prepositioned to a point 
just before a HDR1 record. Otherwise tape data checks or runaway may occur. 


Note: \f standard labeled tapes (7-track, primarily) have been prepositioned to any point 
other than the label, you can access the data, without the above errors, by coding 
SEQNUM-X, REEL-NL on the FILE statement. You should not, however, output a file 
on a standard labeled tape in this manner because the file would not be accessible by the 
system (there cannot be a mixture of labeled and unlabeled files on the volume). 


The following sections describe the use of standard labeled, nonnstandard labeled, and 
unlabeled multifile tape volumes. 


Standard Labeled Files 
Standard labeled multifile tape volumes have the following format: 


VLG HLG TM DATA TM TLG TM 
HLG TM DATA TM TLG TM TM 


where 
VLG = volume label group VOL1 label is processed; others, if present, are ignored. 
HLG = header label group HODR1, HDR2 records are processed; other header records, 
if present, are ignored. 
™ = asingle tape mark 
DATA = the data file 
TLG = trailer label group EOF 1, EOF2 records, when processed, indicate the end 


of a file. EOV1, EOV2 records indicate the end of volume of a multi- 
volume file. The final volume of the file will have EOF 1, EOF2 trailer 
records; other trailer labels, if present, are ignored. 


Two tape marks indicate the end of volume if the preceding TLG consisted of EOF1, 
EOF2 records. 


One tape mark indicates end of volume if the preceding TLG consisted of EOV1, 
EOV2 records. 


Each file is preceded by a header label group and a tape mark, and is followed by a 
trailer label group and a tape mark. 


The HDR1 record contains a field in which the file sequence number is recorded when the 
file is written. The number indicates the relative position of the file in the volume, and it 
increments by one from one file to the next. 


The user selects the desired input file by specifying on the FILE statement: 
SEQNUM-number 


where number = the file sequence number in the HDR1 record of the desired file. Default 
value is 1. 


For output files, SEQNUM-number specifies where the file is to be written on the volume. 
The number specified should be one greater than the last file on the volume, unless you 
want to overlay a file. A system message occurs if the SEQNUM value is two or more 
greater than the value in the HDR1 record of the last file on the volume. Once a file has 
been written, any files that existed on the volume beyond the new output file are no 
longer accessible for input. Two tape marks are written after the new file, indicating the 
end of volume. 
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For output files, the tape is positioned per the SEQNUM parameter, then the trailer label 
of the preceding file is read. If the label group is EOV (end of volume) instead of EOF 
(end of file), a diagnostic halt message is issued; a file cannot be written after a multi- 
volume file. 


If a file exists where the new output file is to be written, the HDR1 label of the file is 
read. The expiration data is checked; if the file has not expired, a diagnostic halt is issued. 


If a series of files is being built on one output tape in one job stream, you can code 
SEQNUM-1, END-LEAVE on the FILE statement for the first file. Code SEQNUM-X 
and END-LEAVE on the FILE statement for the second and subsequent files. When the 
job stream is run, the system assigns the SEQNUM value for files built after the first file. 
The value assigned will be one greater than that used for the previous file, 


Notes: 

1. If files exist on the tape beyond the one being written, they cannot be accessed after 
the file is written. 

2. If unexpired (or permanent) files exist beyond the file being written, they are not 
detected and are lost. 

3. For input files, a system message occurs if a file having the specified SEQNUM value 
cannot be found. 

4. For output files, if the tape has been positioned within the boundaries of an existing 
file, a diagnostic message occurs. 


If the tape has been prepositioned for input, SEQNUM-X should be coded on the FILE 
statement. The system then determines where the tape is positioned as follows: 


1, If at load point, the volume and file header labels are read and verified. The tape 
then is positioned to the start of the data. 


2. If at the start of a file, the file header labels are read and verified. The tape is 
positioned to the start of the data. The volume label is not read. 


3. If the tape was prepositioned to any other point, the volume or file header labels 
are not checked. The tape is not positioned to any other point; it is assumed that 
the data area starts where the tape is currently positioned. 


Note: File allocation time can be decreased when several files on one volume are to be 
processed by a job by (1) coding END-LEAVE on the FILE statement for each file refer- 
enced on the volume and (2) by processing the files in the order in which they reside on 
tape. 


Nonstandard Labeled Files 


The REEL parameter on the tape FILE statement indicates a nonstandard labeled file 
when REEL-NS is used. Nonstandard label groups cannot be written but are accepted in 
input files. A nonstandard label group is one in which the first record is not an 80-byte 
record beginning with VOL1. The label group is followed by a tape mark. 


For single-file volumes, the system positions the tape past the tape mark that follows the 
label group. This is done after the first record on the reel has been verified as not being 
an 80-byte VOL1 record. The label group is not read or processed. Trailer labels, if 
present, are not read or checked when the file is closed. 


Multifile nonstandard labeled volumes must be prepositioned before the job is run if the 
file to be processed is not the first file on the volume. If the tape file has been pre- 
positioned, it is indicated by coding SEQNUM-X on the tape FILE statement. The 
system does not check the tape; the file is allocated. It is the user’s responsibility to 
position the tape properly. 


Unlabeled Volumes 

Unlabeled multifile tape volumes have the following format: 
DATA TM DATA TM DATA TM TM 

where TM = a single tape mark denoting the end of a file. 


Two tape marks denote the end of a volume unless the last file is a multivolume file, in 
which case there is only one tape mark. 


A single tape mark may precede the first file of an input volume. The first file on an 
output volume does not have a leading tape mark. 


The tape can be positioned to any file on the reel, for input or output, by use of 
SEQNUM-number on the tape FILE statement. The number indicates the relative posi- 
tion of the file on the tape. If SEQNUM-X is used for an output file, the system ensures 
that the tape is positioned at the start of a file before writing. (The tape is backspaced to 
the start of the file if necessary.) When SEQNUM-X is used for an unlabeled input file, 
the system does not move the tape before it is read. 


For output files the SEQNUM value should be one greater than the number of files on 
the reel, unless you wish to overlay a file. 


For input or output files, specifying a SEQNUM value two or more greater than the num- 
ber of files on the reel will cause either (1) a message to be issued if the last file on the 
tape is not a multivolume file or (2) unpredictable results if the last file on the tape isa 
multivolume file. 
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Allocation time can be reduced when several files on a reel are to be accessed during a job 
by (1) processing the files in the order in which they reside on the tape and (2) coding 
END-LEAVE on the FILE statement for each file. Then the tape is not rewound for each 
allocation. However, if SEQNUM-X is coded on one FILE statement and a subsequent 
FILE statement has SEQNUM-number coded for the same tape volume, the volume is 
rewound by the system before being positioned to the desired file. 


Note: Standard labeled tapes can inadvertently be destroyed when SEQNUM-X and 
REEL-NL are used for an output file. If the tape is not at load point, a check for a 
standard labeled tape is not performed. 


REEL Parameter on FILE Statement 


The REEL parameter, for standard labeled tapes, is the name of the volume containing 
the file. 


REEL-name 
If a multifile multivolume aggregate is used, REEL-name is the name of the first volume 
of the aggregate, regardless of which volume actually contains the file, when a single- 
volume file is accessed, 
The parameters used for multivolume files are: 
REEL-‘name1,name2,namex’ 
where name 1 is the name of the first volume of the aggregate (as described above), 
and name2 and namex are the volume names of the additional volumes containing 


the file. 


The names to use in this case are the actual volume names of each volume. 


None 


FILE Statement (Device Independent Files) 


Function 


Placement 


Format 


Contents 


The device independent FILE statement allows you to assign I/O devices used by a 
program. This statement supplies the system with information about |/O devices used in 
the program. This information is used to read records from and/or write records to the 
1/O devices used. 

You must supply a device independent FILE statement for each device independent file 
used in your program. The device independent FILE statement must follow the LOAD 
or CALL statement and precede the RUN statement. 

// FILE parameters 


Note: \f device independent files are using disk or tape units for input or output, then 
the disk or tape FILE statement format must be used. 


All parameters are keyword parameters. The parameters are as follows (keywords are in 
capital letters): 


NAME-filename (in program) 

Unit-code 

PRINT-code 

RECL-record length 
The NAME and UNIT parameters are always required on the device independent FILE 
statement. This FILE statement format is used when device independent files are being 
read from or written to unit record devices. 
Programs requiring specific filenames for device independent files are: 


Program File Name 


Disk Sort Input INPUT or INPUT1 
INPUT2 through INPUT8 


Copy/Dump Input COPYIN 

Output COPYO 
COPYP 

System History Output $HISTORY 

Area Display 

Spool File Input READER(O! (optional) 

Copy Input RESTORE!?’? (optional) 
Output DiSPLAYQ! (optional) 
Output PRINTQ! (optional) 
Output PUNCHO! (optional) 
Output READERO! (optional) 


The file name can be replaced by the name specified on a control statement parameter. 
2The RESTORE file must be either tape or disk. 
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NAME: The NAME parameter is required on the device independent FILE statement. 
It tells the system the name the program uses to refer to the file. The name can be any 
combination of characters except commas, apostrophes, or blanks. The first character 
must be alphabetic, and the name used may not exceed 8 characters in length. 


UNIT: The UNIT parameter is required on the device independent FILE statement. It 
tells the system the unit record device from which the file will be read or to which the file 
will be written. The UNIT parameter must be one of the following: 


MFCU1 Primary hopper of the 5424 (input and output files) 

MFCU2 Secondary hopper of the 5424 (input and output files) 

MFCM1 Primary hopper of the 2560 (input and output files) 

MFCM2 Secondary hopper of the 2560 (input and output files) 

1442 1442 Card Read Punch (input and output files) 

2501 2501 Card Reader (input files only) 

1403 1403 Printer (output files only) 

3284 3284 Printer (output files only) 

3741 3741 Data Station/Programmable Work Station (input and output files) 


READER Use the partition’s assigned system input device (input files only). 


Note: You cannot use this parameter if the system input device is 
assigned to the console. 


PRINTER Use the partition’s assigned system print device (output files only) 
PUNCH Use the partition’s assigned system punch device (output files only) 
Note: This parameter cannot be used if the system has no punch device. 


PRINT: The PRINT parameter is used to specify whether interpreting is to be done on 
punch files. It is ignored when the file is not being punched or when the punch device 
does not support printing. If PRINT-YES is specified, the data being punched is also 
printed on the card. When PRINT-NO is specified, the data is not printed. If this param- 
eter is not specified and the device is capable of printing, PRINT-YES is assumed. 


RECL: The RECL parameter is used to specify the number of bytes in a logical record 
on the 3741. It can be any number from 1 through 128. If a device other than the 3741 
is used, the parameter is ignored. If this parameter is not specified for the 3741, a record 
length of 96 is assumed (unless overriden by the program). 


None 


HALT Statement 


Function 


Placement 


Format 
Contents 


Spooling Considerations 


The HALT statement is used to override the system nohalt mode established at IPL or 
the nohalt mode established by a NOHALT statement (see NOHALT statement or 

or NOHALT command). The system normally does not stop at the end of job or job step 
in a partition. The HALT statement causes the partition in which it was received to stop 
whenever a system message is issued or when end of job or job step occurs, and requires 
the operator to select the recovery option. The operator must restart the partition by 
responding to the system message issued. The system remains in halt mode until a 
NOHALT statement is issued, PL occurs, or end of job is reached. It then returns to the 
IPL nohalt mode or the mode established by the last HALT/NOHALT command received 
by the system. When a HALT OCL statement is received in a partition, the severity code 
for halts is reset so all system halts including end-of-step and end-of-job halts must be 
responded to. See NOHALT Statement for a description of severity codes. 


A HALT statement can be placed anywhere among the OCL statements. In a procedure 
it must precede the RUN statement. 


// HALT 
None (comments may be entered after the blank position following HALT). 


None 
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To operate correctly, the printer requires characters matching those on the printer chain 
or train to be in a special area of main storage called the chain-image area. When you 
replace the printer chain or train with one having different characters, you must also 
change the contents of the chain-image area. 


The IMAGE statement instructs the system to replace the contents of the chain image 
area with the characters indicated by the data records entered from the system input 
device or contained in a source library. The effect of the [MAGE statement is temporary, 
and the system chain image is returned to the chain image specified during system genera- 
tion if the system IPL procedures is performed again. 


The IMAGE statement can appear anywhere among the OCL statements. In a procedure, 
it must precede the RUN statement. 


// IMAGE parameters 
The IMAGE statement tells the system one of two things: (1) the new chain characters 
are to be read from the system input device, or (2) the new chain characters are to be 
read from the source library. 
The IMAGE parameters are: 
HEX 
format- < CHAR 
MEM 
number-value 
name-name 


unit-code 


Note: The words format, number, name, and unit are not coded as part of the parameters 
for the IMAGE statement. 


(Coding only HEX, CHAR, or MEM is preferable for format, but HEXADECIMAL, 
CHARACTER, or MEMORY can be coded.) 


Characters from the System input Device 


If you wish to indicate that new characters are to be read from the system input device, 
use the following parameters: 


format: Use the word CHAR to indicate that characters are in EBCDIC form. Use the 
word HEX to indicate that the characters are in hexadecimal form. 


number: The number parameter must be used with HEX and CHAR. It must be a value 
that is equal to the number of columns or line positions in the data records or the data 
keyed in following the IMAGE statement that contains the new characters. This number 
must not exceed 240 when the characters are hexadecimal or 120 when characters are 
EBCDIC. The name and unit parameters must not be coded. The rules for punching and 
keying the new characters are as follows: 


@ The characters must begin in position 1. 
@ Consecutive card columns or line positions must be used; however, only the first 80 
columns or line positions of the card or line can be used. Hexadecimal requires an 


even number of columns or line positions, two per character. 


®@ Characters continued on another card or line must begin in position 1. 


Characters from the Source Library 


To indicate that new chain characters are to be read from the source library, the MEM 
parameter must be specified. The following parameters must also be included: 


Name: The name parameter identifies the source member containing the characters in 
the library. You can place the characters in a source library by using the library mainte- 
nance program. The name you supply in the library maintenance control statement is the 
name used to identify the characters in the source library. 


Unit: The unit parameter must be used with the name parameter. It tells the system 
which simulation area contains the source library. Possible codes are R1, F1, R2, F2. 
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The IMAGE statement in (A) tells the system that the new characters (from the system 
input device) are in hexadecimal form; the number parameter indicates that there are 120 
positions (60 characters) containing the new characters. 


In GB), the new characters (from the system input device) are in EBCDIC. The number 
parameter indicates that there are 48 columns or line positions containing the new 
48-character image. 


© tells the system that the new characters are in the source library. The name param- 
eter indicates that the characters were named CHAIN in the source library. The unit 
Parameter indicates that the source library containing them is on the simulation area 
assigned to R1. Examples of the entry specified in © are (A) and (B). The entry itself 
must contain an IMAGE statement with the characters in either hexadecimal or EBCDIC. 
The number of columns containing the characters must also be specified. (See Library 
Maintenance Program in Part 4 for restrictions on the name used in coding MEM.) 
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No support is provided by spooling for changing the chain image for printed output. 

Print records that are spooled are printed with the currently loaded chain image. If a 
special print chain or train is required for a job step on the print queue, it is the operator’s 
responsibility to load the chain image before the print writer starts printing the output. 


If you want to change your chain image in a spooling environment, use one of the follow- 
ing methods: 


@ Supply an IMAGE statement in a partition. This changes the chain image for the print 
writer but not for the job being loaded in the partition. The print writer must be 
stopped with a STOP command before the chain image is changed. 


@ Bypass spooling, allowing the partition to use the printer directly by using the 
START SPOOL and STOP SPOOL command in the partition and START PRT and 
STOP PRT command. 


INCLUDE Statement 


Function 


Placement 


Format 


Contents 


The INCLUDE statement identifies the entry (procedure) in the source library that con- 
tains the OCL statements to be merged into the job stream. When printed, the merged 
OCL statements are identified by an X/ preceding the statement identifier. The source 
member to be included into the job stream cannot contain a CALL statement. 


The INCLUDE statement can appear anywhere among the OCL statements. It must 
precede the RUN statement (if RUN is used) in a procedure. Nested INCLUDE state- 
ments are not allowed. 


// {INCLUDE procedure-name,unit[,switch characters] 


Procedure-name: This name identifies the procedure in the source library. It must be 
the same name that was supplied in the library maintenance control statement when the 
procedure was entered in the source library. 


Unit: The unit parameter is a required code. The code identifies the simulation area that 
contains the procedure. Possible codes are R1, F1, R2, F2. 


Switch characters: The switch characters (0, 1, and X) are optional. When you include 
them, you must supply 8 characters, because they are compared with the eight external 
indicators. The system does a comparison for each position if the switch character is a O 
or 1. An X cancels the compare operation for that position only. The first (leftmost) 
switch character is compared with external indicator 1; then the second switch character 
is compared with external indicator 2; this process continues until the 8 switch characters 
and the eight external indicator positions are either compared or bypassed. If an equal 
condition exists, the INCLUDE statement is accepted. Otherwise, an informational 
message is displayed and the INCLUDE statement is not accepted. 
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None 


// SWITCH 10101010 

// LOAD ABC,F1 

// INCLUDE X,R1,10101010 

// INCLUDE Y,R1,01010011 

// INCLUDE Z,R1,XOX0X010 
// RUN 


This INCLUDE statement is accepted, and the OCL statements in procedure X are 
merged into the job stream. 


This INCLUDE statement is not accepted, and an informational message is 
displayed. 


This INCLUDE statement is accepted, and the OCL statements in procedure Z are 
merged between procedure X OCL statements and the RUN statement. The job 
stream is changed as follows: 


// SWITCH 10101010 
//_ LOAD ABC,F1 
// \NCLUDE X,F1,10101010 
X/ DATE 051077 l 
X/ FILE NAME-A,UNIT-D1,PACK-D1D1D1 
X/ FILE NAME-B,UNIT-D1,PACK-D1D1D1 
// INCLUDE Y,F1,01010011 

CRFLSH! ABCO1 
** THIS INCLUDE BYPASSED ** INDICATORS-10101010** 
// INCLUDE Z,F1,X0X0X010 
X/ FILE NAME-D,UNIT-D2,PACK-D2D2D2 
X/ FILE NAME-E,UNIT-D2,PACK-D2D2D2 Procedure Z 
X/ FILE NAME-F,UNIT-D2,PACK-D2D2D2 
// RUN 


Procedure X 
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JOB Statement 
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Format 
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The JOB statement allows you to group related job steps together to ensure that they are 
run sequentially, The system does not initiate the next step of a job until the previous 
job step has been completed successfully. It is required on systems that have active 
spooling or on nonspooling systems running in job mode. 


The JOB statement must precede the first LOAD or CALL statement. It cannot be 
used in a procedure. 


//jobname JOB parameters 


Jobname: This is a required entry used to uniquely identify a job. It must begin in 
position 3, may not exceed 8 characters in length, and may not contain a comma. When 
the last two characters of a jobname are asterisks (**), the system replaces them with a 
sequence number. The assigned number (from 01 through 99) is included in an informa- 
tional message. 


Job (and step) names should contain only characters that are on the 3277 Display Station 
keyboard. If the jobname contains characters that are not on the 3277 keyboard, that 
job cannot be referenced by its jobname by using commands. These nondisplayable 
characters may also cause display problems when written to the 3277 display. The job- 
name is displayed on the display screen with system messages and halts associated with 
the job. It is also the name by which jobs are identified on the spooling queues. 


All parameters are optional. They are as follows (defaults are underlined): 


PRIORITY- 


afr wn|-o 


CORE-nnn (can be 1, 2, or 3 digits) 


POOL- ; —— 
anOOr NG 


YES | 
NO § 


ES | 
J 


VDAWPwWRHh|- 


oY: 
PARTITION- 
Ne 


QCOPY- ; 
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PRIORITY: A priority may be assigned to a job to indicate its level of importance on the 
reader or output queues. The priority of the job steps for a job on the output queues is 
the priority assigned to that job on the reader queue unless overridden by a PRIORITY 
parameter on a PRINTER or PUNCH statement. Priority 0 indicates a priority 1 job, 
which is to be held on the reader queue until released via an Operator control command. 
(See Appendix C for a summary of operator control commands.) Priority 5 is the highest 
priority that may be assigned. Within a given priority, jobs are scheduled on a first-in, 
first-out basis. If this parameter is not specified, priority 1 is assumed. 


CORE: This parameter specifies the amount of main storage required to execute the 
largest step in a job and establishes a minimum Partition size for the duration of that job. 
(It does not assign main storage to the partition; a SET command must be used for this 
purpose.) When this parameter is not specified, the system assumes that the job is 
scheduled in a partition with adequate main storage and uses the present partition size as 
the minimum for the job. Eight is the minimum value that may be specified; 238 is the 
maximum value that may be specified. Anything less than 8K is treated as 8K. This can 
be increased in 2K increments up to a maximum of 238K. If the parameter is not a 2K 
increment, it is rounded up to the next 2K increment. When the CORE parameter is 
specified, the partition must have the requested amount of main storage available before 
the job can be executed. 


Note: \f more than 128 files are to be processed in a partition, minimum partition size 
is 10K. 


SPOOL: SPOOL-NO ensures that the job will not be loaded if spooling is active in that 
partition. If SPOOL-NO is specified, the system prevents the job from being executed 
when spooling is active. It is your responsibility to ensure that I/O devices for the job 
are available and spooling has been stopped for the partition. You may free a device 
required by a job and stop spooling in a partition by using aSTOP command. (See 
Appendix C for a summary of operator control commands.) SPOOL-NO should be used 
when a job requires dedicated use of one or more devices being used by spooling. 
SPOOL-YES specifies a job that may be run with spooling active. If this parameter is not 
given, SPOOL-YES is assumed. 
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PARTITION: This parameter is used to specify the partition in which the job must be 
executed. If this parameter is not specified and input spooling is not used, the system 
assumes the job can be executed in any partition. If PARTITION is not specified and 
input spooling is being used, the job is scheduled for execution in partition 1. Once a job 
is placed on the reader queue, its partition assignment can be changed through use of the 
CHANGE partition commands. 


The meaning of each partition code is: 
Code Meaning 


1 Execute job in partition 1 
Execute job in partition 2 


Execute job in partition 3 
Execute job in partition 1 or 2 
Execute job in partition 1 or 3 


Execute job in partition 2 or 3 


008 PWN 


Execute job in partition 1, 2, or 3 


Note: When keyword parameters are not specified on this statement, comments may not 
be given following the JOB statement identifier. 


QCOPY: This optional parameter (QCOPY-NO) prevents the spool file copy program 


($QCOPY) from accessing the job on the reader queue. If OCOPY-YES either is specified 
or is the default, the spool file copy program can copy the job from the reader queue. 
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The preceding JOB statement causes the following: 


@ Statement read by the spooled reader: 
— Priority 1 is assigned to the job on the reader queue and output queues (see note). 
— Job is executed in partition 1. 
— EXAMPLE is the jobname on the reader and output queues. 


®@ Statement is not read by the spooled reader: 
— The partition the job executes in is the partition into which the operator loads 
the job. 
— If spooling is active for the partition into which the job is loaded, priority 1 is 
assigned to the output queues (see note). 











The preceding JOB statement causes the following: 


@ Statement read by the spooled reader: 
— Priority 5 is assigned to the job on the reader queue and output queues (see note). 
— Job is executed in partition 1. 
— EXAMPLE2 is the jobname on the reader and output queues. 
— Prior to the job being initiated, 48K of main storage must be available in partition 1. 


@ Statement not read by spooled reader: 
— The partition the job executes in is the partition into which the operator loads 
the job. 
— The job is executed if 48K of main storage is available in the partition into which 
the job was loaded. 
— If spooling is active for the partition into which the job is loaded, priority 5 is 
assigned to the output queues (see note). 


Note: The priority on the output queues can be different for a,job step within the job 
if the PRIORITY parameter is specified on the PRINTER and/or PUNCH statement. 
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The preceding JOB statement causes the following: 


@ System with spooling 
— The job must be loaded into partition 2. 
— Spooling may not be active in partition 2. 
— Atleast 10K of main storage must be available in partition 2. 


@ System without spooling 
— The job must be loaded into partition 2. 
— Atleast 10K of main storage must be available in partition 2. 


If spooling is active in a partition, the JOB statement must be used in that partition. 
When jobs are being read onto the reader queue, any errors on the JOB OCL statement 
cause that job to be assigned a priority of 5. If the jobname is missing or invalid, the 
default jobname, JOB, is assigned to that job on the reader queue. 


LOAD and LOAD * Statement 


Function 


Placement 


Format 


Contents 


The LOAD statement identifies the program to be executed and indicates whether the 
program will be loaded from the system input device for the partition, from an ébject 
library, or from a file on a main data area. 


One LOAD statement is required for each program executed. On systems being run in 
step mode, the only requirement is that the LOAD statement precede the RUN state- 
ment. The LOAD statement must follow the JOB statement, and precede the RUN 
statement when operating in job mode. Any number of job steps (LOAD/RUN com- 
binations) may follow a JOB statement. For a complete description of job mode and 
step mode see Part 2 of this manual. 


The LOAD statement has the following formats: 


//[stepname] LOAD * [,program-name1,unit1] 
[,switch characters] (a blank is mandatory between LOAD and *.) 


//[stepname] LOAD program-name2,unit2 
[,switch characters] 


The first format is used to load object programs from the system input device or froma 
file on a main data area. The second format is used to load object programs from an 
object library. 


stepname: This optional entry is used to uniquely identify a job step. If specified, the 
stepname must begin in position 3 of the statement, must not exceed 8 characters in 
length, and must not contain a comma. Stepnames (and jobnames) should contain only 
characters that are on the 3277 Display Station keyboard. If the stepname contains 
characters not on the 3277 keyboard, that step cannot be referenced by its stepname by 
using commands. These nondisplayable characters may also cause display problems when 
written to the 3277 display. The stepname is displayed on the display screen with system 
messages associated with the job step. If a stepname is not specified, the system assigns 

a stepname to each step. The stepname assigned by the system is made up of the program 
name from the LOAD statement and a 2-digit number assigned by the system. Stepnames 
assigned by the system are incremented by one at end of job step in which a stepname is 
assigned. If a LOAD * statement without a stepname is encountered, the system assigns 
a stepname of ASTRSKnn. The number portion of the stepname is reset to 1 at end of 
job. After 99 stepnames have been assigned within one job, the number is reset to 1. 
When the print and punch queues are displayed, the stepname identifies job steps on the 
queues. 


Asterisk: An asterisk is specified when the user wants the object program loaded from 
the partition’s system input device or from a file on a main data area. The object pro- 
gram must follow the RUN statement if the program is loaded from the partition’s system 
input device, and a /* statement must follow the object program to indicate the end of 
the object program input. The object program is temporarily copied into the object 
library on the system pack and then loaded into main storage for execution. LOAD * 
programs are accepted in any partition; however, while a LOAD * program with overlays 
is running, no other LOAD * programs can be loaded. When a subsequent LOAD * pro- 
gram is received, the system issues a diagnostic, which allows the user either to wait for 
completion of the LOAD * program or to cancel the subsequent LOAD * program. 
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Program-name1: This entry identifies the file that contains the object program to be 
loaded. The program-name1 can be any combination of characters except commas, 
apostrophes, or embedded blanks. The first character must be alphabetic. The length 
must not exceed 6 characters. 


unit1: This entry specifies the main data area that contains the file from which the 
object program is to be loaded. Possible codes are those for the main data areas. 


Note: Although the user does not specify an OCL FILE statement, the LOAD * from 
file function requires an F1 entry in the SWA. The system produces a simulated FILE 
statement to protect the file from which the program is being loaded. Therefore, the 
number of available file statements that can be used when a program is loaded from a file 
is reduced by 1. The program-name1 parameter must identify the file which contains the 
program being loaded. 


Switch characters: The switch characters (0, 1, and X) are optional. When you include 
them, you must supply 8 characters because they are compared with the eight external 
indicators. The system compares each position if the switch character isa OQ or 1. An X 
cancels the compare operation for that position only. The first (leftmost) switch character 
is compared with external indicator 1; then the second switch character is compared with 
external indicator 2. This process continues until the 8 switch characters and the eight 
external indicator positions are either compared or bypassed. If an equal condition exists, 
the program is loaded. Otherwise, an informational message is displayed and the job 
stream is flushed to the next step. 


The program-name1 and the unit1 parameters are positional parameters. Therefore, if 
you include the switch characters without these parameters, you must separate the * and 
the switch characters with either 1 or 3 commas. For example: 


[1 LOAD *,xxxxxxxx 
or 
// LOAD *,,,xxxxxxxx 


program-name2: The program-name2 is the name used to identify the program in the 
object library. Program-name2 may be up to 6 characters in length. The name must begin 
with one of the 29 alphabetic characters (A—Z, @, #, or $) and may be followed by up to 
5 characters. Commas, apostrophes, periods, and blanks may not be used in the name. 
The system service programs and program products are identified by the following names: 


Program Name 
Restart $$RSTR 
Alternate Track Assignment $ALT 
Basic Assembler $ASSEM 
RPG 11 Auto-Report $AUTO 
Alternate Track Rebuild $BUILD 
COBOL Compiler $CBLOO 
Communication Control Program $CCP 
Card List $CLIST 
Configuration Record $CNFIG 
Copy/Dump $COPY 
Card Sort/Collate $CSORT 
Dump/Restore $DCOPY 
File Delete $DELET 
CCP/Disk Sort $DGSRT 


Example 


Program Name 


Disk Sort $DSORT 
File Compress $FCOMP 
FORTRAN $FORT 
Gangpunch $GANGP 
System History Area Display $HIST 
Disk Initialization SINIT 
Chain Cleaning $KLEAN 
File and Volume Label Display $LABEL 
Library Maintenance $MAINT 
Macro Processor $MPXDV 
Overlay Linkage Editor SOLINK 
Spool File Copy $QCOPY 
Card Reproduce and Interpret $REPRO 
Recover Index $RINDX 
RPG It Compiler $RPG 
Reassign Alternate Track $RSALT 
Simulation Area $SCOPY 
Tape Initialization $TINIT 
Tape Sort $TSORT 
Tape Error Summary Program $TVES 
VTOC Service $WVTOC 


Unit2: The unit2 parameter is a required code. It indicates the simulation area that 
contains the program. Possible codes are R1, F1, R2, F2. 


The disk area containing your object program is called an object library. You can create 
an object library on any of the simulation areas by using the library maintenance program. 
(See Library Maintenance Program in Part 4 of this manual.) 


In the following sample LOAD statement, $RPG is the name that identifies the RPG 1 
compiler. 











F1 is the code indicating the simulation area where the compiler is located. 


The system would assign a stepname of $RPGO1, because a stepname is not specified on 
the LOAD statement. 


The following example shows a stepname assigned by the user: 











The system would use the stepname RPGF1. 
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The following example shows how the switch characters can be used to determine whether 
or not a job step will be executed. Assume that a program has just completed executing 
successfully and has set the external indicators to 10101010. The OCL statements 
following the completed program are: 
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Step 1 is not executed because the external indicators do not agree with the switch 
characters. An informational message with the value of the external indicators is 
issued. The system then flushes to the next step (step 2). 


Step 2 is executed because the external indicators agree with the switch characters. 
(The switch character X tells the system to cancel the compare operation with the 
relative external indicator.) 


El Step 3 is executed after step 2 is completed. 


The following example shows the OCL statements and parameters needed to load a 
program from a file: 
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The LOAD * identifies the requested function. The program is processed as a LOAD * 
type program. The same rules and restrictions that apply to a program joaded from the 
system input device also apply to a program that is loaded from a file. 


The program-name (MNO) must be the name of the file that contains the program. 

The program is contained in a file that is located on a main data area (D42). The program 
is copied to the object library on the system pack before being loaded into main storage 
for execution. The system pack becomes the program pack for all LOAD * programs 


regardless of whether they are loaded from disk or from the system input device. 


None 


LOG Statement 


Function 


The LOG statement is used to perform two functions: 
@ Change the system log device for a partition. 


® Control end-of-job page ejection on the log device. 


System Log Device 

During system generation, a system log device is established for each partition. When a 
LOG statement is used, the device specified as the system log device remains in effect for 
the partition until another LOG statement is read or until IPL is performed. The log 
device applies only to the partition in which the LOG statement is processed. 


The following information is not logged on the printer, but it /s logged in the system 
history area (SHA): 


@ Responses to ERP (error recovery procedures) messages 

@ Responses to EJ/ES messages 

® Spooling messages and responses 

® Volume recognition facility messages 

® Occ 

® OCC diagnostics 

@ Any ERP message received while a printer ERP message is active 


@ Partition identification on OCL statements and control statements for system service 
programs. 


If logging of the above information is required, you should assign the log device only to 
the CRT and periodically print the contents of the system history area using the system 
history area display program ($HIST). See System Service Programs in Part 4 for a de- 
scription of $HIST. 


Logging to the SHA 


All system messages and OCL statements are logged to an area on the system pack called 
the SHA (system history area). 


Note: You may print the SHA or copy the SHA to a device independent file using 

$HIST. Also, you may display the SHA on the display screen using the DISPLAY 
command. See System Service Programs in Part 4 for a description of $HIST, or Appendix 
C for a summary of the operator control commands. 
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Logging to the CRT 

System messages that require a response and informational messages are logged to the 
CRT independent of the assigned log device. The only effect of a // LOG CONSOLE 
statement is that logging to the printer is stopped. 


Logging to the 3284 


if the 3284 is assigned as the log device and is not assigned to a Partition, system messages 
OCL, and control statements are logged to the 3284. 


, 


Logging to the 1403 


System messages, OCL, and control statements are logged to the 1403 if the 1403 is 
assigned as the system log device, if the 1403 is not assigned to a partition, and if one of 
the following conditions is met: 


@ Print spooling is neither active nor using the 1403. In this case, OCL statements and 
messages are logged directly to the 1403. 


@ Print spooling is active {intercepting print requests). tn this case, OCL statements and 
system messages are logged to the printer queue. 


Controlling Page Ejection 


The LOG statement is used to control page ejection that occurs before ES and EJ and 
after EJ. The EJECT and NOEJECT modes remain in effect for any log device until 
another LOG statement is read, or until an IPL is performed. 


You can use the LOG statement within any of the sets of OCL statements for your job 
steps. In a procedure, it must precede the RUN statement. 


// LOG device [,mode] 
or 
// LOG ,mode 


Contents The following codes can be used as parameters. 


Device Meaning 

CONSOLE Log to the CRT and the system history area. 

1403 Log to the CRT, the 1403 printer, and the system history area. 
3284 Log to the CRT, the 3284 printer, and the system history area. 
none The log device is not changed. 

Mode Meaning 

EJECT Eject a page before ES and EJ and after EJ. If no mode is specified, 


EJECT is assumed. 
NOEJECT Do not eject a page before ES and EJ and after EJ. 


Spooling Considerations When 1403 printed output is being spooled, and the system log device has been assigned 
to the 1403 printer, all system messages that would normally be logged on the 1403 are 
placed in the spooled print file. When the spooled output is printed, the system messages 
are printed, along with the job steps’ output. When spooling 1403 output, a page eject 
occurs at the start of every job step’s printed output, regardless of the mode specified on 
the LOG statement. 
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The NOHALT OCL statement is used to cancel the halt mode established by a HALT OCL 
statement. It can also be used to establish a severity code for system messages to allow 
the system to select default options for system messages. The NOHALT OCL statement 
does not override the halt mode established by the HALT command. Command halt 
mode is always prevalent (see chart below). 


The NOHALT OCL statement changes the halt mode for the partition in which it was 
received. ANOHALT OCL statement takes effect immediately and lasts until a HALT 
OCL statement is received, another NOHALT OCL statement modifies the severity code, 
IPL is performed, or end of job occurs. (At IPL the system defaults to nohalt mode, with 
no severity code.) When the nohalt mode is reset at end of job, the system returns to the 
IPL nohalt mode or the mode established by the last HALT or NOHALT command re- 
ceived by the partition. The following chart shows the conditions resulting when both 
OCL and commands are used: 


NOHALT HALT 

OCL OCL 

NOHALT HALT 
HALT HALT! HALT 
command 


‘Halts for end of job messages, end of job 
step messages, and system messages with 
no severity defaults or with severity 
codes greater than the current severity 
setting. 

















NOHALT 
command 















For a summary of Operator Control Commands, see Appendix C. 


A NOHALT statement can be placed anywhere among the OCL statements. Ifa proce- 
dure it must precede the RUN statement. 


// NOHALT SEVERITY-code 


Contents 


Spooling Considerations 
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The NOHALT statement, with or without the SEVERITY parameter, suppresses the 
message at end of job step and/or end of job. 


SEVERITY: This parameter is used to indicate the severity code of messages that the 
system is allowed to select default options for. If the SEVERITY parameter is not speci- 
fied, the operator must respond to all system messages, except informational, end of job 
step and/or end of job messages. The code must be one of the following: 


1, 2,4, 8 — The system selects the default option for system messages of a severity less 
than or equal to the code indicated. Severity codes and defaults are assigned to most 
system messages and cannot be altered. If the severity assigned to a system message is 
greater than the severity indicated in the NOHALT statement, the system stops, waiting 
for your response. If the severity assigned to the message is equal to or less than the 
severity indicated in the NOHALT statement, the system selects the default option for 
the system message and processing continues. If the default option selected by the system 
is a 2 or a3, the end of job message is suppressed. The severity code does not affect 
system messages having no default options or requiring operator intervention. Severity 
code 1 is the least severe, severity code 8 is the most severe. Severity codes are reset to 
no severity at end of job. For more information on system messages and severity codes, 
see /BM System/3 Model 15 System Messages, GC21-5076. 


Note: Halts displayed in the message display unit are not affected by the SEVERITY 
parameter. 


None 
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PAUSE Statement . 


Function 


Piacement 


Format 
Contents 


Spooling Considerations 





The PAUSE statement causes a system message (message 90 if before a LOAD or CALL 
statement; message 91 if between a LOAD or CALL and a RUN statement). It is usually 
used to give the operator time to prepare for the next program: for example, mount a 
different data module or insert special forms into the printer. Comment statements that 
give the operator instructions usually precede PAUSE statements (see Comment 
Statement). 


When the operator is ready, the partition in which the PAUSE statement was received is 
restarted by responding to the message. The system then continues reading the OCL 


statements that follow the PAUSE statement. 


The PAUSE statement is the only OCL statement logged on the display screen; therefore, 
it may be used to supply information to the operator. 


PAUSE statements can be placed anywhere among the OCL statements. Ina procedure, 
a PAUSE statement must precede the RUN statement. 


// PAUSE 
None (comments may be entered after the blank following PAUSE) 


None 


PRINTER Statement 


Function 


Placement 


Format 


Contents 


During system generation, a system print device is established for each partition. The 

PRINTER statement enables you to change the system print device for the partition in 
which the statement is processed. The new system print device remains in effect until 

changed by another PRINTER statement or until another IPL occurs. 


The PRINTER statement can be placed anywhere among the OCL statements. Ina 
procedure it must precede the RUN statement. 


// PRINTER parameters 


The parameters are as follows (keywords are in capita! letters; defaults are underlined): 
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DEVICE: The device parameter is optional. If not specified, 1403 is assumed. Spool 
does not support the 3284. 


LINES: The LINES parameter is optional. It is used to alter the number of print lines 
(forms length) per page. Possible range is 12 to 112. The number of lines specified 
remains in effect for that partition until another PRINTER statement with LINES param- 
eter is entered or until the next IPL. This parameter overrides the forms length specified 
during system generation; however, a program’s forms length overrides the LINES 
parameter. If a program's forms length is used, it is in effect for the duration of that job 
step only. At the end of the job step, forms length is restored to the previous value. 
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FORMSNO: This optional parameter, which applies only to the job step in which the 
PRINTER statement was used, may be used to inform the operator which forms are to be 
mounted on the printer. This parameter can be any combination of 1 to 3 characters, 
except commas, apostrophes, or blanks. When this parameter is used, the system halts 
with a message to the operator indicating the forms type to be used. When printing 
spooled printed output, the print writer issues a message whenever the forms type for the 
current print step is different from that of the previous print step. The response taken to 
this message informs the print writer if separator pages should be printed between jobs 
and job steps. See the /BM System/3 Model 15 User’s Guide to Spooling, GC21-7632, for 
information on separator pages. If the forms type operand is given in the START PRT 
command, the print writer will print only those job steps whose forms type matches that 
given in the START command. You can start the print writer with a different forms type 
by entering the STOP PRT command, followed by the START PRT command with a 
forms type operand. Starting the print writer without the forms type operand causes the 
print writer to print job steps in the order they appear on the print queue. 


COPIES: This optional parameter, which applies only to the job step in which the 
PRINTER statement was used, allows the user to obtain 1-99 copies of a job step’s 
spooled printed output. If this parameter is not specified, only one copy is printed. 
When more than one copy is requested, the print writer continues to produce the number 
of requested copies before continuing to the next step on the print queue. All copies 
produced by the print writer allow for forms alignment if ALIGN-YES is specified. This 
parameter is ignored when print spooling is inactive or not supported for the specified 
device. 


DEFER: The DEFER parameter is optional. It is ignored when print spooling is inactive 
or not supported for the specified device. DEFER-NO allows the spooling user to begin 
printing a job step’s printed output before the job step has completed execution if the 
job step is the next step to be printed from the print queue. When DEFER-YES is speci- 
fied, printing does not begin until the job step has completed execution. The DEFER 
parameter applies only to the job step in which the PRINTER statement was received. If 
the parameter is not specified, the system assumes DEFER-YES. 


ALIGN: The ALIGN parameter is optional. It aids the operator in forms alignment for 
spooled printed output. This parameter is ignored when print spooling is inactive or not 
supported for the specified device. When ALIGN-YES is specified, the printer stops after 
printing the first line to allow forms alignment. A message is displayed on the CRT after 
the first line is printed. The operator’s response to this message indicates that forms are 
aligned (continue printing) or that the line should be printed again (try alignment again). 
If more than one copy is requested (COPIES parameter) and ALIGN-YES is specified, the 
printer halts for forms alignment prior to printing each copy. If ALIGN-NO is specified, 
the printer does not stop. The ALIGN parameter applies only to the job step in which 
the PRINTER statement was received. If the parameter is not specified, the system 
assumes ALIGN-NO. 


Note: \f logging was assigned to the 1403, forms alignment is done on the first OCL 
statement logged to the 1403 for that job step. For this reason, logging to the 1403 
should be suppressed when ALIGN-YES is used. 


Spooting Considerations 


PRIORITY: The PRIORITY parameter is optional. A priority can be assigned to a job 
step to indicate its order of printing on the print queue. Priority 0 indicates a priority 1 
job step that is to be held on the print queue until released via an operator control 
command. (See Appendix C for a summary of operator control commands.) Priority 5 is 
the highest priority that can be assigned. If this parameter is not specified, the priority 

of the job at the time of execution is assigned to the job steps on the print queue. This 
parameter is ignored when print spooling is inactive or not supported for the specified 
device. The PRIORITY parameter applies only to the job step in which the PRINTER 
statement was used. 


CLOSE: This optional parameter is used to group multiple print steps of a job under one 
stepname. If CLOSE-NO is specified, no print steps are closed at end of step, only at end 
of job. If CLOSE-YES is specified, a print step is closed at end of step. If the parameter 
is not specified, CLOSE-YES is assumed. The CLOSE parameter is ignored when print 
spooling is not active. 


If a previous print step specified CLOSE-NO, a PRINTER statement with an ALIGN, 
COPIES, DEFER, FORMSNO, PRIORITY, or QCOPY parameter is ignored and causes an 
informational message to be issued. 


QCOPY: This optional parameter (QCOPY-NO) is used to prevent the spool file copy 
program from copying a job step that is on the print queue. QCOPY-YES allows the 
spool file copy program to copy the job step. If the parameter is not specified, 
QCOPY-YES is assumed. 


The QCOPY parameter applies only to the job step in which the PRINT statement is 
included. 


You can change your system print device in a spooled job stream; however, if the new 
device is the 3284, printed output for the system print device (for example, from the 
overlay linkage editor or library maintenance program) is not placed on the print queue. 
To resume spooling of this printed output, you must change the system print device back 
to the 1403. 


When a PRINTER statement is encountered and printer output for the job step is being 


spooled, the effect of the COPIES, DEFER, ALIGN and/or FORMSNO parameters is 
delayed until the print writer is ready to print the output. 
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Format 


Contents 
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The PUNCH statement enables you to define the system punch device for the partition 
in which the statement was received. 


The new system punch device remains in effect until changed by another PUNCH state- 
ment or until another IPL occurs. 


During system generation of a default system punch device is established for each 
Partition. 


The PUNCH statement can be placed anywhere among the OCL statements. Ina proce- 
dure, it must precede the RUN statement. 


// PUNCH keyword parameters 

The keyword parameters are as follows: 
DEVICE-device 
CARDNO-nnn 


COPIES-nn 


< 
n 


DEFER- \ E 


2 
s| 


QcoPY- 


ea 
2 | < 
m 

n 
—mom 


PRIORITY- 


ar wWNH | oO ° 


DEVICE: This parameter is optional and can be any of the following: 
MFCU1 Primary hopper of the 5424 
MFCU2 Secondary hopper of the 5424 
1442 1442 Card Read Punch 
MFCM1 Primary hopper of the 2560 
MFCM2 _ Secondary hopper of the 2560 


3741 3741 Data Station/Programmable Work Station 
{not supported for punch spooling) 


CARDNO: This parameter is optional and may be used to inform the operator which 

card type to use for output punching. When the punched output is spooled, the card 

type used for punching can be identified in the PUNCH statement. This parameter may 
be any combination of 1 to 3 characters, except commas, apostrophes, or blanks. The 
CARDNO parameter applies only to the job step in which the PUNCH statement was used. 


When the CARDNO parameter is used, the system halts and issues a message on the CRT 
indicating the card type to be used for the job or job step. 


When punching spooled output on a 1442 Card Read Punch or 2560 MFCM, blank cards 
may be inserted between decks to cause all cards of the deck just punched to be fed into 
the stacker. On the MFCU, the last card is stacked without the extra blank cards. 


COPIES: This optional parameter allows the user to obtain from 1 to 99 copies of job 
step’s spooled punch output. If this parameter is not specified, only one copy is punched. 
When more than one copy is requested, the END OF PCH STEP message must be re- 
sponded to before the punch writer will start punching the next copy. Once started, the 
punch writer punches the entire number of requested copies before continuing to the next 
job step on the punch queue. The COPIES parameter is ignored when punch spooling is 
inactive or not supported for the specified device. The COPIES parameter applies only 

to the job step in which the PUNCH statement was used. 


DEFER: The DEFER parameter is optional. [tis ignored when punch spooling is 
inactive or not supported for the specified device. DEFER-NO allows the spooling user 
to begin punching a job step’s punched output before the job step has completed execu- 
tion (if the job step is the next step to be punched from the punch queue). When 
DEFER-YES is specified, punching will not begin until the job step has completed execu- 
tion. The DEFER parameter applies only to the job step in which the PUNCH statement 
was received. If the parameter is not specified, the system assumes DEFER-YES. 


QCOPY: This optional parameter (QCOPY-NO) is used to prevent the spool file copy 
program from copying a job step that is on the punch queue. QCOPY-YES allows the 
spool file copy program to copy the job step. If the parameter is not specified, 
QCOPY-YES is assumed. 


The QCOPY parameter applies only to the job step in which the PUNCH statement is 
included. 


PRIORITY: The PRIORITY parameter is optional. A priority can be assigned to a job 
step to indicate its order of punching on the punch queue. Priority O indicates a priority 
1 job step that is to be held on the punch queue until released via an operator control 
command. (See Appendix C for a summary of operator control commands.) Priority 5 
is the highest priority that can be assigned. If this parameter is not specified, the priority 
of the job at the time of execution is assigned to the job steps on the punch queue. This 
parameter is ignored when the punch spooling is inactive or not supported for the speci- 
fied device. The PRIORITY parameter applies only to the job step in which the PUNCH 
statement was used. 
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Example 


Spooling Considerations 
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In this example, prior to punching, the system halts and displays on the display screen, 
the partition’s CARDNO parameter (50) informing the operator that card type 50 is to 
be placed in the secondary hopper of the MFCU. 


During punching, no check for blank cards is made. If the system punch device is also 
the partition’s system input device and neither device is being used by spooling, a halt is 
issued to inform the operator that the system punch device should be readied for 
punching. 


You can change your system punch device in a spooled job stream; however, if the new 
system punch device is not the spooled punch device, punched output from the overlay 
linkage editor and the library maintenance program, for example, is not placed on the 
punch queue. To resume spooling of this punched output, you must change the system 
punch device to the device designated as the spooled punch device during system genera- 
tion. 


The punch writer issues a message whenever the card type (CARDNO) for the current 
punch step is different from that of the previous punch step. 


When a PUNCH statement is encountered and punch output for the job step is being 
spooled, the effect of the COPIES, DEFER and/or CARDNO parameters is delayed until 
the punch writer is ready to punch the output. 


READER Statement 


Function 


Placement 


Format 


Contents 


Spooling Considerations 


The device used to read OCL statements is called the system input device. A default 
system input device is established for each partition during system generation. You can 
use a READER statement if you want to change your system input device. 


The READER statement must not come between the LOAD and RUN or CALL and 
RUN. If you use the READER statement in a procedure, the system input device is 
changed when the statement is processed, but, OCL statements are not read from the new 
system input device until the procedure is completely executed. If you use the READER 
statement to change the system input device, the device you specify is used to read 
source programs, control statements, and OCL statements. Therefore, changing the 
system input device affects the placement of source programs and control statements as 
well as OCL statements. 


The READER statement must be read from the current system input device or a proce- 
dure, 


// READER code (system input device) 
Codes for the system input device can be as follows: 
Code Meaning 


CONSOLE CRT/keyboard (can be shared by partitions) 


MFCU1 Primary hopper of the 5424 

MFCU2 Secondary hopper of the 5424 

MFCM1 Primary hopper of the 2560 

MFCM2 Secondary hopper of the 2560 

1442 1442 Card Read Punch 

2501 2501 Card Reader 

3741 3741 Data Station/Programmable Work Station 


You may change your system input device in a spooled job stream; however, if the new 
system input device is different from the spooled input device, jobs are not scheduled for 
execution from the reader queue. To resume scheduling jobs for execution from the 
reader queue, you must change the new system input device back to the system input 
device that is accepting spooled input. 
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RUN Statement 


Function 


Placement 


Format 
Contents 


Spooling Considerations 
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The RUN statement indicates the end of the OCL statements for a job step. After the 
system reads the RUN statement, it executes the program specified on the LOAD state- 
ment or calls the procedure specified on the CALL statement. 


A RUN statement is needed for each of the programs you want the system to run. In the 
job stream, it must be the last statement within each of the sets of OCL statements for 
your job steps. It can also be the last OCL statement ina procedure. (For more informa- 
tion about procedures, see Procedures in Part 2.) 

// RUN 


None (comments may be entered after the blank following RUN) 


None 


SWITCH Statement 


Function The SWITCH statement allows you to modify the external indicators for the partition in 
which the statement was received. Eight external indicators are assigned to each partition. 
External indicators allow you to influence the execution of your programs from an 
external source. The eight external indicators, for each partition, are set off during IPL. 
lf a SWITCH statement sets an indicator on in a partition, it remains on until one of the 
following occurs: 


@ Another SWITCH statement sets it off. 

@ A JOB statement is received in the partition. 

@ A/. statement is received in the partition, in job mode. 
@ An IPL is performed again. 


Placement The SWITCH statement can be placed anywhere among the OCL statements. Only one 
SWITCH statement is allowed between the LOAD or CALL and RUN statements. 


Format // SWITCH indicator-settings 


Contents Indicator-settings: The indicator-settings parameter is a code that consists of 8 characters, 
one for each of the eight external indicators. The first, or leftmost, character gives the 
setting of external indicator 1; the second character gives the setting of external indicator 
2; and so on. 


The code must always contain 8 characters. For each external indicator, one of the 
following characters must be used: 


Character Meaning 
0 Set the external indicator off. 
1 Set the external indicator on. 
x Leave the external indicator as it is. 
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Spooling Considerations 
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The code 1X0110XX would cause the following results: 


External 
Indicator 


None 


Result 


Set on 


Unaffected 


Set off 


Set on 


Set on 


Set off 


Unaffected 


Unaffected 


Function 


Placement 


Format 


Contents 


Spooling Considerations 


/& statements are used as a precautionary measure. Placed at the end of your OCL for a 
job step, a /& statement signals the system that OCL statements for a new job gtep 

are coming. It prevents OCL for the next job step from being read as a part of the pre- 
ceding set of statements or data. Any attempt to read more data from that device will 
be blocked. This statement terminates a step mode flush. 


/& statements are not required. It is recommended, however, that you use them as the 
last statement in each of the sets of OCL statements for your programs. They are not 
allowed in a procedure. 


/& 


None (Comments may be entered starting in column 3; however, this statement requires 
special consideration when used with the copy/dump program ($COPY). For more 
information regarding these special considerations, refer to Card Input Considerations, 
under Copy/Dump Program). 


None 
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Function 


Placement 


Format 
Contents 


Spooling Considerations 
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This statement is a job stream delimiter that has the following three functions: 


A/. acts as a delimiter between jobs. It causes end of job and prevents the reading of 
more OCL for the job. 


With spooling active, two consecutive /. statements indicate the end of the spooled input 
job stream. 


With spooling inactive, this statement can be used to end job mode and return to step 
mode. It causes end of job in the Partition in which the statement was received. 


How this statement is used determines where it is placed in a job stream (see examples). 
It is not allowed in a procedure. 


/ 
None (comments may begin in Position 3.) 


Two consecutive /. statements must be used to indicate the end of the spooled input job 
stream. 


A /. statement may be used to delimit jobs in a job stream. When a job being placed in 
the reader queue is not delimited by a /. statement, the input spooling routine generates 
a /. statement as the last statement for the job in the queue. This statement may contain 
extraneous characters following the /. when the system history area is displayed or 
printed, or when the statement is logged on the log device for the partition. 


Some system service programs ($COPY for example) do not recognize a /, statement with 
comments or extraneous characters as an end of file indicator unless the statement is read 
from the system input device. Also, because /. statements in the reader queue may have 
extraneous characters following the /. delimiter, these programs should not attempt to 
read data from the reader queue unless the spooled reader is also the system input device 
for the partition in which that Program is executing. 


The following examples show how the /. statement can be used. 
1. When used as a delimiter between jobs: 


/1S3OB1 JOB 
//STEPA LOAD PROGA,R1 


// RUN 

Data 

/* 

/& 

//STEPB LOAD PROGB,R1 

// RUN 

Data 

[? 

/& 

/. This indicates the end of JOB1 and prevents the reading of more OCL for 
JOB1. If any job steps in JOB1 had been canceled, the /. indicates the end of 
the job. If this statement were not in a job stream, the following invalid JOB 
statement, the LOAD statement, and all other statements up to the next /. or 
valid JOB statement would have been read as part of the OCL for JOB1. 

//JOB2JOB 

//STEPA LOAD PROGC,R1 

// RUN 


2. When used to indicate end of spooled data: 


//JOB1 JOB 
//STEPA LOAD PROGA,R1 


// RUN 

Data 

/* 

/& 

//STEPB LOAD PROGB,R1 


// RUN 

Data 

pf 

/. 

//JOB2 JOB 

//STEPA LOAD PROGC,R1 
// RUN 

Data 

Vie 

18 

//STEPB LOAD PROGD,R1 


// RUN 

Data 

/* 

: \ Indicates end of spooled input 
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When used to end job mode and return to step mode (nonspooled systems only): 


/1JOB1 JOB SPOOL-NO,PARTITION-1,CORE-12 
/ISTEPA LOAD PROGA,R1 


// RUN 

Data 

[> 

/& 

/ISTEPB LOAD PROGB,R1 


// RUN 

Data 

/* 

/. Ends job mode. Begin step mode. 
// LOAD PROGC,R1 

// RUN 


*(Comment) Statements 


Function Comment statements are commonly used to explain the jobs or give the operator instruc- 
tions. A comment statement can also be used to cause a second record to be written to 
the SHA following the comment. This record, called a time stamp, contains the system 
date and the time of day (if timer support was generated). Comment statements are 
printed along with the other OCL statements. 


Placement You can include, among OCL statements, special statements that contain only comments. 
Comment statements must contain an asterisk (*) in column 1. If you include the word 


TIME with an * (* TIME), the system writes the comment statement plus a time stamp in 
the system history area. 


Comment statements can be placed anywhere among the OCL statements in either a job 
stream or a procedure. Comment statements are never displayed on the CRT but are 
printed if LOG is assigned to a printer (1403 or 3284) for the partition in which the 
comment statement was used and the printer is not allocated to a partition. 


Format * comment, or *TIME comment 


Contents The comment can be any combination of words and characters. The requirements are 
that the asterisk (*) be in column 1, and if specified, TIME must start in column 2. 


The following example shows the format of the *TIME statement and the time-stamp 
record as it appears in the SHA. 


@ 2 *TIME COMMENT FROM PARTITION 2 
@) 2 04/26/78 00.00.54 


@) This statement was generated by the user. 


@) This statement was inserted into the SHA by the system. 


Spooling Considerations None 
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Function 


Placement 


Format 


Contents 
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The /* statement is not a true OCL statement but is used to indicate the end of a data 
file. 


One /* should be used as the last card of an input data file or program deck. With the 
exception of card utilities, two consecutive /* statements will cause an error message. 


/* 


None (Comments may be entered starting in column 3; however, this statement requires 
special consideration when used with the copy/dump program ($COPY). For more infor- 
mation regarding these special considerations, refer to Card Input Considerations, under 
Copy/Dump Program.) 


None 
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SYSTEM/3 MODEL 15 PROGRAMMING SUPPORT 


System/3 Model 15 programming support inciudes system 
control programming (SCP) and program products (PP). 
These facilities allow a user to prepare and maintain disks 
and tapes, and perform basic functions necessary for the 
operation of a system. 


SCP consists of disk system management programs and 
system control and service programs that are fundamental 
to the operation and maintenance of the system. Disk 
system management provides its support through the 
following: 


@ Initial Program 
Loader 


Starts operation of the system by 
loading the supervisor into storage. 
@ Supervisor Controls overall system operations 
and provides general function 
required by the scheduler and al! 
processing programs. 

@ Scheduler Initiates the execution of each new 
program and establishes the system 
facilities which are to be evoked 
while that program is running. 

@ Spool Reduces processing unit depen- 
dence on the relatively slow speeds 


of unit record input/output devices, 


and reduces contention for the 
devices. 


® Data 
Management 


Provides routines to interface 
between a user program and the 
required data files. Interfaces are 
provided for files on disk, tape, 
cards, or diskette, and for the 
printer, CRT, BSCA, or SIOC; also, 


a device-independent access method 


is supported. 


Program Facilities 


System control and service programs enable the user to 
service the program libraries, data files, application pro- 
grams, and input/output units. Following are some of the 
programs included in this group: 


Library 
Maintenance 


Allows the user to produce, main- 
tain, and service the source and 
object program libraries 
Copy/Dump Supports file-to-file and volume-to- 
volume copies 


File and Volume 
Label Display 


Displays information about the 
contents of a disk 


File Delete Deletes data files from a disk 


The following program products are available to satisfy 
specific application requirements: 


RPG Il 

Subset ANS COBOL 
FORTRAN IV 
Basic Assembler 
Disk Sort 

Tape Sort 

CCP/Disk Sort 


Card Utilities 


Program Facilities 2-3 


PROGRAM CONCEPTS Job stream for compiling a source program punched in 
cards. 


Any set of user instructions for processing data must go 
through several phases before it can be used by the system 
to actually process data. User-written instructions form a 
source program; the source Program is processed by a 
language translator to form an object module; the object 
module is formatted by the overlay linkage editor into a 
load module; the load module can be executed by the 
system. The following discussion describes these steps 

in greater detail. 


Source Programs 


A source program is a set of user instructions that can be 
compiled and used for processing data. To write a source 
program, a user must analyze the input data, decide what 
must be done to it, and determine the format of the 
output. 





After this analysis, the user writes instructions according 

to the conventions of a programming language (such as 

RPG II) to process the data. These instructions taken 
together are called a source Program and the user can punch 
it into cards, write it ona diskette, store it on disk prior 

to compilation or assembly, or enter it into the system 
directly from the console/keyboard. 






Note: Depending on 
the compiler used, more 
than two FILE statements 
may be required. 


Job stream for compiling a source program located on 


Object Modules dick in a source library. 


An object module is a source Program converted into 
instructions that can be link-edited. To obtain an object 
module, a source program is processed by a compiler (such 
as the RPG If compiler) or an assembler. The resulting 
object module contains the necessary machine instructions 
required to perform the desired processing of data. From 
the compiler or assembler, the object module can be stored 
on disk, punched into cards, or written on a diskette. 


The following examples show typical OCL used to compile 
source programs. 


Note: Depending on the 
compiler used, more 

than two FILE statements 
may be required. 
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Load Modules 


A toad module consists of at feast one object module that 
has been changed by the overlay linkage editor into a 
module that can be loaded for execution. 


Linkage editor processing is necessary following the assem- 
bly or compilation of any program. The output of a 
language translator (assembler or compiler), called an 
object module, cannot be run as a program until it is 
link-edited into a load module. Object modules and load 
modules can reside on cards, on diskette, or in an object 
library on disk. 


Source 
Program 


O04 











Language 
Translator 


Overlay Linkage Editor 


The overlay linkage editor provides services to the language 
translators. The following section provides an overview of 
these services; for detailed information on the overlay 
linkage editor and its uses, see /BM System/3 Overlay 
Linkage Editor Reference Manual, GC21-7561. 


The overlay linkage editor can be requested by a user or 
directly by a language translator such as FORTRAN, 
COBOL, RPG II, and Basic Assembler. 


The following OCL statements show how to load the over- 
lay linkage editor: 


// LOAD $OLINK,unit 

// FILE NAME-—$SOURCE, ... 
// FILE NAME—$WORK,... 
// RUN 


(These two FILE state- 
ments, which are 
optional, are standard 
FILE statements used 
by the compilers.) 


Object 
Module 


; om: 














Linkage 
Editor 


The overlay linkage editor provides the following functions 
for the language translators: 


@ Punches the object module into cards, writes it to a 
diskette, and/or catalogs it into an object library on disk. 
These modules are also referred to as R modules, 
routines, or nonexecutable object programs. They are 
programs and/or subroutines that still need to be link- 
edited into load modules. 


@ Link-edits the object module(s) into a load module; 
punches this load module into cards, writes it on 
diskette, and/or catalogs it into an object library on 
disk. These modules are also referred to as O modules 
or object programs. They are programs and/or sub- 
routines that can be loaded for execution. 
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When the overlay linkage editor link-edits One or more 
object modules, it attempts to fit the resulting load module 
into the user-specified Program size or the current Program 
Partition size. If this cannot be done, the overlay linkage 
editor assigns some modules to overlay segments. Main 
Storage for an object Program with overlays is divided into 
four areas: root area, user overlay area, system area, and 
co-resident area. Not all Programs need all four areas. 


The root area of an overlay program contains the Parts of 
the program that are never overlaid. The root area always 
contains the mainline module, overlay fetch routine, fetch 
table, and transfer vectors. The remaining parts of the root 
area depend on the program being linked. 
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The user overlay area contains user modules that call 
system I/O modules. Each overlay (known as a segment) 
loaded into the user overlay area can contain modules of 
different category values. Category values determine what 
modules reside in the various areas. If the COBOL seg- 
mentation feature has been used, the COBOL segments 
appear as overlays in the user overlay area. The presence 
of COBOL segments forces any non-COBOL modules that 
normally would have been assigned to the user area to the 
root area (category 0). 


A system overlay segment contains system modules with 
the same category value. Each system overlay segment is 
independent of other system overlay segments. System 
modules are assigned to overlay segments solely by category 
value. A system module can call only another module with 
either the same category or a category 0 module. The 
co-resident area is actually a part of the system overlay 
area. 


The following example shows overlay areas. 













Supervisor 


~— GLOBAL 
— COMMON 


— Mainline Module 

— Category 0 Modules (user) 

— Other Modules Included (if space 
available) 

— Overlay Fetch Routine, Fetch Table, 

and Transfer Vectors 





— a 


— es & 
System Modules~ —~ — 








— 


System Modules 





The maximum number of overlay segments in a program 
is 254. A storage map provided by the overlay linkage 
editor indicates overlay area addresses and the segments 
each overlay area can contain. 


The following OCL statements are an example of a language 
translator requesting the overlay linkage editor: 
// LOAD $RPG, unit (unit can be R1, F1, R2, 
or F2) 
// COMPILE SOURCE-PROG1,UNIT-unit, 
OBJECT-unit, ATTR-MRO 


// FILE NAME-$SOURCE,... 
// FILE NAME-$WORK, ... 
// RUN 


— Root Area 


User 1/O Independent Modules 


User {/O Dependent Modules t — User Overlay Area 


— System Overlay Area 


— Co-resident Area 


Memory Resident Overlays 


Memory resident overlays is a technique designed to 
increase the performance of large overlay programs by 
allowing certain overlay segments to remain in main storage 
after the initial segment fetch. The two types of memory 
resident overlay programs are MOVE and REMAP, which 
differ as follows: 


@ When ATTR-MOVE (MOVE technique) is specified in 
the OPTIONS statement of the overlay linkage editor, 
the user program retains the segment in the resident 
area but executes the segment in the conventional 
overlay fetch area. 


@ When ATTR-MRO (REMAP technique) is specified in 
the OPTIONS statement of the overlay linkage editor, 
the program executes the segments in the resident area 
itself. 
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The ATTR parameter is to be used only with load modules; 
the MRO and MOV Program attributes will not be attached 
to R modules (nonexecutable object programs). 


For more information, see /BM System/3 Overlay Linkage 
Editor Reference Manual, GC21-7561. 


To be used, the memory resident overlay feature must be 
selected as an option during system generation. However, 
load modules may be link-edited with this attribute on 
any system. 


The overlay fetch routine generated for the MOVE tech- 
nique is identical to the fetch routine generated for 
conventional overlay programs. 


The CATEGORY statement controls which overlay seg- 
ments are candidates for memory resident overlays. Any 
overlay segment containing a category 125 module is not 
a Candidate for memory residence. 


With the two memory resident overlay techniques (MOVE 
and REMAP), large Programs can reside in primary storage 
throughout execution if the Partition is large enough and 

if the program can be link-edited within the maximum 
Program size. These techniques may improve performance 
for overlay programs that require a large number of overlay 
fetches. 


The REMAP technique requires that the overlay segments 
be link-edited to 2K boundaries. The MOVE technique 
does not have this restriction. For large overlay segments, 
REMAP generally executes faster than MOVE. 


Throughput degradation for memory resident overlay 
programs with RLDs (relocation dictionary records) is not 
as severe as for conventional overlay programs with RLDs, 
because each resident overlay segment is relocated only 
the first time it is fetched from disk. 


28 


PROGRAM AND PARTITION SIZES 


Program size is the amount of main storage (excluding 
external buffer requirements) required for a program to 
execute. Partition size is the amount of main storage 
available for executing a program. Program and partition 
sizes are related items because the partition size must be 
large enough to accommodate the program. When the 
Program size (plus external buffer requirements) is larger 
than the partition, either the Partition size can be increased 
or the program can be structured with overlays. 


The partition sizes that best meet the needs of an installa- 
tion depend upon such factors as the total amount of 
storage available, the size and characteristics of the user 
Programs, their balance among job streams, and the operat- 
ing environment. 


Partition sizes are specified in 2K increments; the minimum 
size in which to execute a Program is 8K. There is no 
upper limit, except as determined by the system. The 
maximum program size is 48—56K. A Program to execute 
under CCP can range from 4K to 32K. The maximum 
program size is dependent on the system configuration 
chosen during system generation. Generally, the more 
system generation options selected, the smaller the maxi- 
mum program size. For example, the maximum configura- 
tion that also includes CCP allows only 48K programs; 
whereas the minimum system configuration, without CCP, 
supports 56K program size. Also, canceling spool can 
potentially increase the maximum allowed program size 

by one 2K increment. The increased size allows more 
Programs to run without overlays and, therefore, may 
reduce execution time. 


Since partition sizes are specified in 2K increments, care 
must be taken when a program is changed. A program size 


exceeding a 2K boundary by as little as 1 byte requires the 
Partition size to increase another 2K. See the following 


example: 
Changed program! 8,193 bytes 









The partition size is initially set during system generation; 
later it may be reset with aSET command. The program 
size can be specified by the user either when writing a 
program (via programming language specifications) or when 
link-editing the program (via the CORE parameter on the 
OPTIONS statement). 


The DISPLAY STATUS command provides system infor- 
mation on the CRT. Included in this information are the 
Partition sizes. The display also provides the maximum 
program size that can be executed on that particular 
system. 


Greater Than 48K Programs 


DISPLAY STATUS on the system display screen specifies 
the maximum program size available (MAX PROG SIZE = 
XXK). Possible values are 48K, 50K, 52K, 54K, or 56K 
depending on the options chosen during system generation. 
The user can direct the overlay linkage editor to generate 

a load module with a specified maximum limit; this 
information (object core size) is specified as follows: 


RPG RPG control card (H) 
FORTRAN CORE statement 

COBOL OBJECT-COMPUTER paragraph 
$OLINK OPTIONS control statement 


The value specified should never be larger than the maxi- 
mum allowable program size (48K-56K). If the desired 
execution size is not specified, the overlay linkage editor 
assumes the current partition size (used for compilation/ 
assembly) or 48K, whichever is less. 


A link-edit address of X‘4000’ should be specified in the 
COMPILE statement (LINKADD) for al! programs to be 
executed in a partition (this is the compiler’s default 
value). If the program is to run as a CCP task, X’8000’ 
should be specified. (Maximum program size for CCP 
tasks is 32K.} 


Page of GC21-5162-1 
Issued 28 September 1979 
By TNL: GN21-5674 


EXTERNAL BUFFERS 


An external buffer is an area located outside the user 
program but within the user partition. An external! buffer 
contains the disk buffers for the user program. When a 
user program requests external buffers during compilation, 
the disk buffers are moved out of the user program area 
and located after the last user program byte. These disk 
buffers are now located between the end of the program 
and the end of the partition. Processing of data in these 
buffers is done in move mode. This removal of disk buffers 
from the root areas of a program allows more executable 
code to be included in the root area. This can have the 
effect of increasing the maximum program size. 


External buffers are supported by System/3 COBOL, 
FORTRAN, RPG II, and Basic Assembler. External buffers 
are requested as follows: 

e@e COBOL Two parameters, EXTBUF and 
NOEXTBUF, are supported on the 
PROCESS statement. EXTBUF provides 
external buffers for all disk files; 
NOEXTBUF provides buffers within the 
program. NOEXTBUF is the default. 
For further considerations in using the 
SAMEAREA clause with EXTBUF, see 
IBM System/3 Subset ANS COBOL 
Reference Manual, GC28-6452. 

@ FORTRAN _ Two parameters, EXTBUF and 
NOEXTBUF, are supported on the 
*PROCESS statement. EXTBUF pro- 
vides external buffers for all direct disk 
files; NOEXTBUF provides buffers within 
the program. NOEXTBUF is the default. 
For further considerations in using 
EXTBUF and SHRBUFF, see /BM 
System/3 FORTRAN IV Reference 
Manual, SC28-6874. 

@ RPGH An E is specified in column 48 of the 
Header Specification to provide external 
buffers for all disk files; not specifying 

an E in column 48 provides buffers within 
the program. The default is no external 
buffers. 
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® Basic The parameters, XBUF-n and NOXBUF, 
Assembler are supported on the OPTIONS state- 
ment; nis a one- to five-digit decimal 
number specifying the size of the external 
buffer required. NOXBUF is the default. 


External buffers are intended for very large programs that 
Previously required a severe reduction in the disk buffer 
sizes to enable Programs to fit within a partition. Specify- 
ing external buffers for these programs can improve per- 
formance because larger buffers can be utilized. Small 
programs, however, may experience performance degrada- 
tion due to the extra Processing required for external 
buffers. The maximum size for external buffers is 64K. 
Therefore, as an example, a 56K program plus 64K of 
external buffers would require a partition size of 120K. 
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File Facilities 
FILE DEFINITION 


A file is a collection of related records to be treated as a 
unit and contained on cards, disk, diskette, tape, printer, 
BSCA, or SIOC. 


This chapter describes file organization and processing in 
general. These subjects are discussed in greater detail in 

the /BM System/3 Disk Concepts and Planning Guide, 
GC21-7571, and /BM System/3 Magnetic Tape Program 
Planning Manual, GC21-5040. For more information on 
file processing with respect to programming languages, see 
IBM System/3 RPG I! Reference Manual, SC21-7504, 

IBM System/3 ANS COBOL Reference Manual, GC28-6452, 
and /BM System/3 FORTRAN IV Reference Manual, 
SC28-6874. 


File Organization 


Three types of file organizations are defined based on the 
arrangement of the records within a file: sequential, 
indexed, and direct. 


A sequential file is a file in which the position of a record 
is determined by the order in which records are put in the 
file. For example, the tenth record put in the file occupies 
the tenth record position. Files on cards, diskette, and 
tape are always sequential files; disk files may be sequential 
files. 


An indexed file is a disk file in which the location of a 
record is stored in a separate but adjacent portion of the 
file called an index. The index has a record key and record 
location for every record contained in the file. An index 
enables a program to process only required records, it is 
not necessary to access all the records of the file. 


Note: \ndexed processing is not allowed on the simulation 
areas of the 3340 and 3344. 


Adirect file is a type of sequential disk file in which records 
are assigned specific record positions by the user. Direct 
file organization enables accessing any record in the file 
without examining other records or searching an index. 


Records are assigned specific locations, independent of the 
order they are put into the file. A user defined control 

field on the record determines the record’s specific location 
in the file. Therefore, records can actually be scattered 
throughout the file, depending on the control field. Unused 
record locations contain blanks. 


File Processing 


Files can be processed by three basic methods: consecutive, 
sequential, and random. 


The consecutive method processes records in the order in 
which they physically appear ina file. The consecutive 
method can be used for sequential, indexed, and direct 
files. The contents of spaces left for missing records in 
direct files are read as blank records. Records are read 
until either the end of the file is reac1ed or the program 
terminates the reading of records. 


Sequential processing applies only to indexed files. When 
an indexed file is processed sequentially, the record keys 
are processed one after another in ascending order. If the 
records are not in order in the file, they can be processed 
in order by means of the keys in the file index. There are 
two ways to sequentially process an indexed file: by key 
and within limits. Sequential-by-key processes all records 
in the order of their key fields. Processing continues until 
all records have been read or the program terminates the 
processing. Sequential-within-limits allows a section of the 
file (group of records) to be processed. Each section is 
identified by lower limit (starting) and upper limit (ending) 
record keys. 


Note: COBOL supports lower limit proces ing only: the 
upper limit must be provided within the CUBOL program. 


Random processing allows disk records to be processed in 
an ordered or unordered manner; a particular record can 
be processed independently of its relation to other records. 
Sequential and direct files can be processed with a relative 
record number to identify the record. The relative record 
number indicates the position of the record within the file 
in relation to the beginning of the file. It is not a disk 
address, but a positive, whole number that is converted by 
disk data management to the disk address of the record. 
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The relative record numbers can be contained in an 
ADDROUT file (record address file) created by the Disk 
Sort program. ADDROUT files are comprised of binary 
3-byte relative record numbers that indicate the relative 
Position of records in the file to be processed. To process 
indexed files randomly, the user must use the record keys 
in the file index to identify the records. 


File Creation 


Data is placed in a file according to user specifications. 
When disk or tape files are created, a FILE statement for 
each file must be included in the OCL for the Program. 


When creating a disk file, the FILE statement supplies the 
name of the file, the retention of the file, the file size, 

the area (simulation or main data area) to contain the file, 
and (optionally) the location within the area. 


The name given to a file is the name a program will use in 
referencing that file. Some Programs require specific file 
names to be used, such as $WORK for compiler work files. 
(FILE statement descriptions in Part 1 contain a list of 
the reserved file names.) Several versions of a file can be 
created on the same disk and be given the same name, but 
the date must always be unique. Each version can be 
referenced by its location, size, or unique date. 


The retention of a file is classified as scratch, temporary, 
Or permanent. A scratch file may be used only in one job 
step and cannot be retrieved after that job step has ended. 
The first time the Model 15 allocates new space on a 
simulation area that has scratch files created by another 
System/3 model, all scratch files are removed. A message 
is issued before removal, allowing the job step to be 
terminated or continued. 


A temporary file is usually used more than once; however, 
the space containing the file can be reused under one of 
the following conditions: 


@® A FILE statement specifying scratch is later supplied for 
the temporary file. This removes the file from the VTOC 
(volume table of contents). 


@ Another file with the same LABEL name is loaded into 
the exact area occupied by the temporary file; this only 
changes the data. Space and location Parameters are 


required. 


® The file delete program is used to delete the file. 
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The space containing a permanent file cannot be used for 
any other file until the file delete Program has deleted the 
file. If the use of a file is not specified when created, 

the file is classified as temporary. A temporary file can be 
changed to a permanent file only if the file name is changed 
and it is copied as a permanent file. 


The output file is scratched at end of job step (just as if 
RETAIN-S has been specified for the output FILE state- 
ment) when all of the following conditions exist: 


@ A pack containing an input file is not online at the start 
of the job (deferred mount). 


@ The output file is to be written over the input file 
(load to old). 


@ RETAIN-S is used on the FILE statement for the input 
file. 


An existing temporary file should be reloaded (load to old) 
with files of like attributes. If an existing indexed file is 
reloaded with a sequential file, the new data overlays only 
the data portion of the file; the index portion of the file 
remains intact but unusable. 


The amount of disk space for a file depends on the size of 
the records, the number of records (both current and to be 
added in the future), and the file organization. 


The size of the file can be specified by either the number 
of tracks needed or the approximate number of records for 
the file. When the number of records is given, the system 
calculates the required disk space by converting number 

of records to number of tracks. 


The total space allocated is rounded up to full tracks, 
allowing adequate space to accommodate at least the num- 
ber of records indicated. This means the file could hold 
more records than specified, allowing additional records to 
be added to the file. Therefore, if the copy/dump program 
($COPY) is used to copy the file to another disk, more 
records may have to be specified than were specified when 
the file was created. 


File Location 


After the size of a file has been determined, disk space to 
contain the file can be allocated. A main data area can 
contain up to 1000 files; a simulation area can contain up 
to 50 files. A location may be specified on the FILE state- 
ment indicating the beginning of the file: for a simulation 
area, it is specified via a track number; for a main data area, 
it is specified via cylinder/head. Allocation of space for a 
file on either a main data area or a simulation area begins 
at the specified location and extends toward the high 
cylinder end of the area. 


Note: When using the COPYPACK function of $COPY 
and $DCOPY to copy an entire 3344 pack, files located on 
cylinders 167—186 of a 3344 main data area will be copied 
to another 3344 main data area or tape, but they wil! not 
be copied to a 3340 main data area. 


The system requires a location to be specified on the FILE 
statement when creating a file with an identical label and 
the same size as a file that already exists in the area, when 
reloading over an existing file, or when loading an offline 
multivolume file to disks that contain other files. When a 
file is referenced, the location is used for a more specific 
identification check and for identifying one of several files 
having the same label and same size. 


A device independent FILE statement for card, diskette, 
and printer files allows 1/O devices to be assigned when a 
program is executed, Thus, a program need not be rewritten 
when a different device is to be used. (For example, input 
originally read from the MFCU1 can be read from the 3741 
without any change in the file description specifications in 
the RPG {I program.) The FILE statement supplies the 
system with information about 1/O devices used in the 
program. This information is used to read records from 
and/or write records to the specified I/O device. A device 
independent FILE statement must be supplied for each 
device independent file used in a program. If device inde- 
pendent files use disk or tape units for input or output, 
then the disk or tape FILE statement is used. 


A system service program ($FCOMP) is used to remove gaps 
between files. The program can reorganize the files on a 
specified main data area or copy {add) an entire main data 
area file by file to another main data area. LOCATION 
parameters may have to be changed in OCL statements 
after $F COMP is used. (See File Compress Program— 
$FCOMP in Part 4 for more information.) 


Automatic File Allocation 


When the location of a new file is not specified on the 
FILE statement, the location is determined by disk system 
management. The process is known as automatic file 
allocation. 


When allocating file space, disk system management cal- 
culates the length of the file and, for a simulation area, 
checks the volume label to determine which tracks are avail- 
able for allocation. (The volume labe! contains the status 
of each track and indicates which tracks are available for 
use.) File space is first allocated for permanent files, then 
temporary files, and finally scratch files, if multiple files 

are being allocated. 


Disk system management places the file on the smallest 
contiguous string of available tracks that can contain the 
file, leaving as few empty spaces as possible. For example, 
if the file is 10 tracks long and there is one string of 12 
available tracks and another of 15 tracks, the file is placed 
in the string of 12 tracks because the 12-track string is 
closer to the length of the file. 


If disk system management, while searching a simulation 
area, finds two strings having the same number of available 
tracks, the file is placed at the highest numbered available 
location. Also, if the file is the first file placed on a disk, 
the system allocates space for the file beginning at the 
highest numbered track. The system allocates space begin- 
ning at the highest location to allow as many available 
tracks as possible next to the object library (the libraries 

are usually located at the lowest numbered tracks) to enable 
the object library to expand if necessary. 
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if the area found for a new file contains more tracks than 
required, disk system management determines the type of 
file to the left (lower numbered track) of the available 
tracks. If the file to the left is of the same retain type, 
the new file is left-adjusted; if the file to the left is not 
similar, the new file is right-adjusted as shown in the 
following example: 


New 
Part A | Permanent Permanent 
File File 


Available | Temporary 
Tracks File 





PartB | Temporary] Available Permanent Temporary 


Tracks 





Part A: The file is left-adjusted since both files are 
permanent. 


Part B: The file is right-adjusted since one file is temporary 
and the other is permanent. 


When disk system management is allocating space on a main 
data area, the search for space begins at cylinder 1 and 
extends toward the high cylinder end of the disk. When a 
file is classified as temporary or permanent, all disk space 

is searched to find the available space that best fits the file. 
The file is adjusted toward the cylinder 1 end of the avail- 
able space. For a scratch file being placed on a 3340 main 
data area, the entire main data area is searched for the best 
fit; the file is adjusted toward the cylinder 166 end of the 
available space. For a scratch file being placed on a 3344 
main data area, the disk space between cylinders 167—186 
is searched for the best fit. If sufficient space exists, the 
file is adjusted toward the cylinder 186 end of the available 
space. If space cannot be found within cylinders 167—186, 
the entire main data area is searched for the best fit; the 
file is adjusted toward the cylinder 186 end of the available 
space, 


Although it is easier to let disk system management allocate 
file space, the following are some advantages in the user 
determining file allocation. More efficient file locations 
may be determined by a user than by disk system manage- 
ment. Disk system management may leave a string of 
available tracks between files that is unusable because the 
string is not long enough to contain another file. The user 
can determine the location of all files by using the file and 
volume label display program. 


Automatic file allocation considers effective use of file 
space, but not the usage of the files. It does not consider 
file planning for multiple input files in a program or job-to- 
job transitions. When a user plans file locations, files used 
together can be placed near one another on disk; thus, 
processing time may be improved. 


A function known as auto-allocate provides automatic 
allocation of space for work files. This function can be 
used by system programs such as library maintenance and 
disk sort. Using the auto-allocate function of the disk sort 
Program generally increases the time needed to run a sort 
job; auto-allocate does not always provide the work file 
arrangement needed for a fast sort run. When a user is 
concerned with minimizing sort run time, a work file should 
be specified by means of a FILE statement, rather than 
allowing the system to automatically allocate work space. 
An advantage of using auto-allocate with disk sort is, if 
sufficient contiguous space is not available, the system 

will find work space that may be located in different 
noncontiguous spaces of the same volume or on different 
volumes. 


FILE SERVICES 


The following system service programs are provided for 
servicing files: 


@ The file and volume label display program ($LABEL), 

has two uses: 

— Print the entire volume table of contents (VTOC) for 
an area (main data or simulation) 

— Print the VTOC information for only certain data 
files 

In both cases, the program also prints the name of the 

area. 


The printed VTOC information is a readable, up-to-date 
record of the contents of the area. This information 
may have a number of uses, such as: 

— Check the contents of an area to ensure that it con- 
tains no libraries, permanent data files, or temporary 
data files before reinitializing 

— Locate space that is available for libraries or new files 

— Obtain specific file information, such as the file 
name, designation (permanent or temporary), or the 
space reserved for the file 

— Determine the amount of space available in a particu- 
lar file 

— Provide file location for use of the $COPY recovery 
function 

The control statements for the program depend on the 

program use. For more information see File and Volume 

Label Display Program—$LABEL in Part 4 of this 

manual. 


@ The copy/dump program ($COPY) performs only one 

of the following functions per execution: 

— Copy an entire volume 

— Copy a data file 

— Copy and print a data file 

— Copy a data file, but print only a part of the file 

— Print an entire data file 

— Print only a part of a data file 

— Print and copy a part of a data file 

— Build a direct file from any file type, except 
REORG-YES may not be specified for an indexed 
file 

— Build an indexed file from a sequential file 

— Recover a file 

— Copy a file with the output record length different 
than the input length 

The control statements used depend on the desired 

results. For more information, see Copy/Dump 

Program—$COPY in Part 4 of this manual. 


@ The file delete program (SDELET) can be used to: 

— Remove all files from the VTOC and optionally 
remove their associated data from the area. 

— Remove a specific file by name from the VTOC and 
optionally remove their associated data from the area. 

— Remove file references in the VTOC only. This frees 
the space they occupy for use by new files but does 
not remove the data from the area. 

— Free space that has been allocated but, due to 
abnormal circumstances, is not associated with a file 
or library. 


@ The recover index program (S$RINDX) recovers indexed 

files by providing the following functions: 

— Recover records added to indexed files lost because 
of abnormal termination 

— Update the format-1 label in the scheduler work area 
with new end-of-data and end-of-index pointers 

— Call the system key sort program and update the 
VTOC at end of job 


®@ The file compress program (S$FCOMP) has two primary 
functions: 
— Place all files (except $SPOOL) in a main data area 
together at the cylinder one end of the disk 
— Copy each file in a main data area to another disk 


SCHEDULER WORK AREA 


The scheduler work area (SWA) is a work space located 

on the system pack. One use is to temporarily save file 
label (F 1) information during the processing of a program. 
The library maintenance program is used to create a 
scheduler work area for each partition. Space for this area 
is assigned immediately preceding the object library. 


The space for file label information is 48 sectors, and it can 
contain a maximum of 192 entries, each 64 bytes in length. 
A maximum of 192 entries (files, volumes of a multivolume 
file, or a combination) may be specified for one program. 
In some cases, however, the maximum will be less than 
192. When all files are indexed multivolume files, the 
maximum is 96 files. A 10K partition must be available to 
process 192 entries; a partition of 8K can process up to 

128 entries. 
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The auto-allocate function may require an F1 entry in the 
SWA even though it is not specified by the user. For 
example, the Disk Sort Program has an auto-allocate 
function wherein the system, not the user, locates work 
space for the sort. Also, some of the system service 
Programs use the auto-allocate routines, 


Generatly, one format-1 label is required for each file. One 
F1 label represents one FILE statement for disk, tape, or 
device independent data management (DIDM). For multi- 
volume files, there is one Fi label for each PACK or REEL 
name. In addition, one F7 label is used for each volume 

of an indexed multivolume file to contain HIKEY 
information. 


The following chart can be used to determine the number 
of SWA entries required for each Program execution. A 
direct file requires the same number of entries as a sequen- 
tial file. 






Number 
of SWA 
Entries 


Number 
of Applicable 
Volumes Devices 








Type of File 







Sequential 







Sequential (MVF) 








Indexed (created 1 Disk 1 
as single volume) 







Indexed 1 Disk 2 
(created as MVF) 







Indexed Disk 6 
(created as MVF) 






Auto-allocate: 
$DSORT Up to4 Disk 
$SMAINT 1 Disk 1! 













1 





Not including files specified for the file-to-library or 
library-to-file functions. 
Device independent data management. 
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For example, when the $COPY program is used to copy a 
multivolume indexed file on five volumes to another five 
volumes, 10 entries are required for the input file and 

10 entries are required for the output file. Thus, by 
summing these requirements, it can be determined whether 
the maximum allowable number of SWA entries (192) 

has been exceeded. 


FILE SHARING 


File sharing allows a disk file to be shared by two or more 
programs executing at the same time. Programs can read 
from, update, or add to the file. 


File sharing allows: 


@ Programs executing in batch mode in different Parti- 
tions to input from, update, and add to the same file 


@ A program in a partition to access a record added by 
another program in a partition while both are executing. 
(For more information, see Sharing Access To Added 
Records chart under File Share in Mul tiprogramming 
Considerations and Restric tions.) 


® ACCP-defined file to be Processed by a batch program 
without requiring CCP to suspend Processing or 
shutdown 


Sharing a file reduces the need to have more than one 

copy of a file online, and it reduces file contention between 
Programs. File sharing is at the block level (one block of 
records) rather than at the file level. Thus, two or more 
Programs can be processing records from the same file, 

but simultaneous accesses to the same block are queued. 


Compatible Access Methods for File Sharing 

Different file types can be accessed by the different types 
of disk data management. For example, an indexed file 
can be accessed by consecutive input data management. 
The following chart shows the data management access 
methods allowed to access the different file types. 


File Type! 


ai [ es [ 
cc 


Les ‘ tena ' 
Indicates the type of file organization used to create the file. 
: Except consecutive add. 












Access 
Method 


Figure 2-1 shows the compatible disk data management 
access methods allowed with file sharing. The access 
methods on the left indicate the data management accessing 
the file. 


CAUTION: 

If you use consecutive or direct data management to 
update an indexed file, you should exercise care to prevent 
destroying the key field portion of the record. 


The data management access method is indicated by 2, 3, 
or 4 character codes as follows: 


@ The first position—C, D, or |—corresponds to the file 
organization—consecutive, direct, and indexed. 


@ The 2nd, 3rd, and 4th positions can contain these 
characters: R and S correspond to file access—random, 
sequential. L refers to processing sequentially within 
limits. O, A, U, G refer to function—output, add, 
update, and get. 


Example: 

1, A file is open as consecutive input (CG). 

2. An attempt is made to open the same file with 
indexed random input, update, and add (IRUA). The 


file is allowed to open if it was created as an indexed 
file. 
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DTF (Define the File} 


A DTF (define the file) is a file control block generated by 
the compiler. It resides in the object program, can vary in 
size from 30 to 150 bytes (depending on the file organiza- 
tion and access method), and is used by data management 
to communicate with the user program. At least one DTF 
exists for each file, including printer, tape, disk, card, 3741, 
console, or device independent files. 


As part of opening files for program execution, the system's 
allocation and open routines store VTOC information about 
the file in the DTF. This information includes file name, 
device code, file attributes, pointers to input/output blocks, 
command code, and |/O completion code. 


For file sharing (disk files only), the DTF also contains a 
pointer to the file share DTF (SDTF). 


SDTFE (Share Define the File) 


When a disk file is being shared, an additional control block, 
called the SDTF (file share DTF), is used. It resides in 

main storage outside the program partition in a common 
area calted the file share area. There is one SDTF for each 
physical, open, shared disk file; the SDTF is created when 
that file is opened the first time, and it is removed when 

the file is closed for the last time. 


The SDTF contains information that reflects the status of 
the file at any particular moment. Within the SDTF are 
file attributes, addresses of disk data extents, a counter that 
indicates the number of times the file was opened, and a 
pointer to file share queue elements (FSQE). Data manage- 
ment uses the SDTF to obtain and update the status and 
pointers of shared files. 


The SDTF varies in size depending on the type of disk file 
it describes. The basic SDTF size consists of a block of 64 
bytes. SDTF requirements are: 


Number Number Number 
of of of 
SDTFs Blocks Bytes 
Single volume file 
Sequential or direct 1 1 64 
Indexed 1 2 128 
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Number Number Number 
of of of 
SDTFs Blocks Bytes 
Multivolume file 
Sequential! or direct 
1 volume 1 2 128 
2 volumes 2 4 256 
3 volumes 3 6 384 
4 volumes 4 8 512 
Indexed 
1 volume 1 3 192 
2 volumes 2 6 384 
3 volumes 3 9 576 
4 volumes 4 12 768 


FSQE (File Share Queue Element) 


An FSQE is used to record what portions of the file are 
currently locked (enqueued) and to indicate if contention 
for those locked portions exists. 


The FSQE portion of the file share area is a work area used 
during disk file Processing. An FSQE is created for each 
reference (for example, GET or PUT) to a physical, shared 
disk file that is opened for update or add. There can be 
more than one FSQE for each SDTF. 


File Share Area 


File sharing requires an area at the high end of main storage 
to contain the SDTFs, FSQEs, and a common area. The 
user specifies the size of the entire area during system gen- 
eration. This size can later be changed with the SET com- 
mand in increments of 2K (all Partitions must be at end of 
job before the SET command can be used). 


The file share area is specified as a multiple of 2K: 2K is 
required as a minimum. The system divides tinis area for 
Storage of the SDTFs and FSOEs in a predetermined ratio. 
For example, in a 4K file share area, there is space for 52 
SDTFs and 35 FSOEs. 


If the user decides (through an analysis of his applications) 
that the file share area would be better utilized with a 
different ratio of SDTFs and FSOQEs, the $CNFIG (config- 
uration record) program can be used to assign a different 
Proportion. (See the FSHARE statement in the $CNFIG 
system service program.) 
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Doubly-Defined Files 


In a single user program, you can define one physical disk 
file with two different names and file descriptions. Such 
a doubly-defined file requires certain user conventions in 
order to avoid file contention problems, 


File contention occurs when the same records in a file are 
being accessed for update by different users at the same 
time. Contention for a doubly-defined file occurs when the 
user simultaneously processes the same records. 


Data management routines ensure that shared update files 
are protected during the update. As the file is being proc- 
essed, the record to be updated is read into main storage. 
The disk block that contains the record, and any other 
records in the block, is then protected from any other up- 
date access. Requests for information in that block are 
locked; that is, the request waits until the updated record 
is written back to disk, at which time the Original request 
is unlocked, and the new request can be processed. 


(Note: For System/3, the lock/unlock mechanism is called 
enqueue/dequeue.) 


During random processing, this rewrite/unlock/dequeue 
occurs after each update of the record. During sequential 
Processing, this rewrite/unlock/dequeue does not occur 
until the entire block of records has been processed. In 
either case (and especially when processing sequentially), 
Programs that use doubly-defined files are susceptible to 
lockouts, 


For further explanation, consider the following example, 
Assume that an indexed file has been defined in one pro- 
gram with two different definitions: 


File Name Access Method 
FILEA1 Direct update (DU) 
FILEA2 Indexed random update and add 


(IRUA) 


If the user has retrieved a record from the file using the 
FILEA2 (IRUA) definition, and then attempts to retrieve 
that record (or one that is in the same block) using the 
FILEA1 (DU) definition, the latter access will be locked 
out until the record is written back to disk for the FILEA2 
definition. 


If the sequence of events is such that the rewrite to FILEA2 
does not occur until the successful completion of the read 
request to FILEA1, then the program will stay in this wait- 
ing state; the CANCEL operator control command must be 
entered to free the partition. 


Considerations and Restrictions 


To avoid file contention problems when using doubly- 
defined files, write the changed records to disk after each 


update. 


When the system is executing a program with a file that 
can be shared, the parameter SHARE-YES can be included 
on the FILE statement. SHARE-YES allows file sharing 
between programs executing at the same time if the access 
methods used are compatible (see Figure 2-1). SHARE-NO 
disallows file sharing. If this parameter is not given and 
RETAIN-S was not specified, SHARE-YES is assumed. 
(Scratch files are not shared.) 


Several restrictions apply to file sharing. For Programs 
specifying double buffering for a file to be shared, the 
double buffering request is ignored; single buffering is used. 
Offline multivolume files cannot be shared. 


A maximum of four online multivolumes can be shared. 
Random and sequential access methods are supported 
under batch; only random access is supported under CCP. 
The default on multivolume OCL is SHARE-YES. 


When a particular file is referenced more than once within 
a job step, SHARE-NO cannot be specified. 


Disk file sharing is also supported by device independent 
data management disk files. 


A display of the system status (via DISPLAY STATUS 
command) includes the size of the file share area. 


For additional information on file sharing, see Mu/ti- 
programming Considerations and Restrictions. 
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‘index Sequential Adds may be used one time as the first add access to the file. If any adds have previously been performed and key sort 
has not occurred, only random access methods may be used to add to the file, 
21F random add has taken place, the added records are not accessed. 


File Open As 








Notes: 

1. Above access methods indicate the data management accessing the file, not the file type. 

2. Additional information about the availability of added records is included under Mul! tiprogramming Considerations and 
Restrictions in Part 2 of this manual. 


3. if you are using the pseudo tape access method (PTAM), no file sharing is allowed between partitions. (PTAM is the 
access method used for FORTRAN sequential files.) 


Figure 2-1, Compatible Disk Access Methods for 5704-SC2 File Sharing 
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General Results When the 2 or 3 Option is Selected 
for a Message 


For most messages where option 2 or 3 is selected, the job 
or job step is cancelled with no further action being taken. 
Exceptions are noted in the message list contained in the 
IBM System/3 Model 15 System Messages, GC21-5076. 
The reason for the message indicates the corrective action 
that must be taken before the job or job step can be resub- 
mitted. In some cases, it may be necessary to contact a 
service representative to correct the problem. 


If a 2 or 3 option is taken to a message during a $MAINT 
run, the library or library entries involved in the function 
might be destroyed. 


Considerations When Selecting the 2 Option 


When the 2 option is selected to an OCL diagnostic issued 
before the LOAD statement is read, the 2 option is treated 
as a O option. 


When the 2 option is selected to a system message and the 
Partition is in job mode, all remaining steps in the job are 
also cancelled. On systems that have input spooling, job 
processing in the partition will resume with the next job 
on the input queue. On systems that do not support input 
spooling, the job stream wil! be read but not processed 
until a JOB or /. statement is read. If output spooling is 
supported on the system, spooled output created by the 
job will be saved. 


When the 2 option is selected to a system message and the 
Partition is in step mode, only the current job step will 

be cancelled. The job stream will be read but not pro- 
cessed until a JOB, LOAD, CALL, /., or /& statement is 
read. 


When a message occurs during the execution of a job step 
and the 2 option was selected, the disk files will reflect 

all activity up to the point when the message occurred 

and the 2 option was selected. However, if the message 
occurs during a $MAINT run, the selection of the 2 option 
will not cause the library or library entries involved in the 
function to be retained. 


Note: The 2 option cannot be taken when messages are 
issued during RPG II last record (LR) time. 


Considerations When Selecting the 3 (or D) Option 


When the 3 option is selected to a system message and the 
partition is in job mode, all remaining steps in the job are 
cancelled. On systems that have input spooling, job pro- 
cessing in the partition will resume with the next job -. 
the input queue. On systems that do not support input 
spooling, the job stream will be read but not processed 
until a JOB or /. statement is read. If output spooling is 
supported on the system, spooled output created by the 
job will be saved. 


When the 3 option is selected to a system message and 
the partition is in step mode, only the current job step 
will be cancelled. The job stream will be read but not 
processed until a JOB, LOAD, CALL, /., or /& statement 
is encountered. 


When a message occurs during the execution of a job step 
and the 3 option is selected, the statu's of the disk files 
being used by the program depends on the operations 
being performed. The possible disposition of the disk 
files are: 


New files being created wil! not be retained. 
®@ Old files being deleted will be retained. 


® Old files being added to will not reflect the additions 
unless opened as SHARE-YES. If the file is shared, 
the additions will be reflected in the VTOC. 


@ Old files being updated will reflect the updates to the 
point at which the message occurred. (Updated records 
residing in main storage buffers at this time will not 
be reflected in the data file.) 


@ Shared files will reflect all activity up to the point when 
the message occurred, similar to the 2 option. 
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WORK FILES Main Storage Requirements 


A work file is space required by the language translators 





(RPG II, COBOL, FORTRAN, CCP/Disk Sort, and Basic fea 
Assembler) and several system programs (macro processor Réaui ts? 
; : ; ; ‘ quirements 
and overlay linkage editor). A work file may be used in Work File 
processing large indexed disk files (see Large Index Files Component Names 
in this section). A work file can be specified via a FILE 
statement or can be obtained by auto-allocate. RPG I $SOURCE 10K 2K 
Compiler $WORK 
The Model 15 language translators require work files for 
compilation. If an object program is required, work files COBOL $SOURCE 12K! 8K 
for the overlay linkage editor are also required. The Compiler $WORK 
following estimates of work file space requirements can $WORKX 
be used for planning purposes; they may not be valid in 
all circumstances. FORTRAN $SOURCE 10K 8K 
Compiler $WORK 
The number of tracks for each work area depends on the 
area of the disk used. A simulation area has 24 sectors CCP/Disk Sort $SOURCE 12K 12K 
(6,144 bytes) per track; the main data area has 48 sectors $WORK 
(12,228 bytes) per track. Either area can be used for all 
components, Basic $SOURCE 10K 2K 
Assembler $WORK 
$WORK2 
Macro $SOURCE n/a 12K 
Processor 
Overlay $SOURCE n/a 10K 


Linkage Editor $WORK 





‘14K it braille output is required. 
Minimum partition that can be used is 8K. 


2-20 


RPG II 


The RPG Ii compiler (Program Number 5704-RG2) 
requires two work files. The size of these files depends 

on the number of source statements (excluding comments) 
and the type of statements in the program. For the follow- 
ing table, a compressed source statement length of 50 bytes 
is assumed. 










Number of Tracks for 
$SOURCE/S$WORK 


Simulation Main Data 
Area Area 





Number of Source 
Statements 





50 
100 
150 
200 
300 
400 
500 
700 

1000 11 
1500 14 
2000 18 


Oannf FW W 


ONODFPWWWNHNN ND 


To generate an object program, the requirements for the 
overlay linkage editor must also be met. The size of 
$SOURCE and $WORK must be large enough to accom- 
modate both the RPG II compiler and the overlay linkage 
editor. 


COBOL 


COBOL (Program Number 5704-CB2) requires disk space 
for each of its three work files. The amount of space 
required depends on the number of statements in the 
source program. The following chart shows requirements 
for each of the three work files. 





Number of Tracks for 








$SOURCE, $WORK, 
or $WORKX 
Number of Source Simulation Main Data 
Statements Area Area 
50 1 1 
100 2 1 
150 3 2 
200 4 2 
300 6 3 
400 8 4 
500 10 5 
1000 20 10 
2000 40 20 


In addition, to generate an object program, the require- 
ments for the overlay linkage editor must be met. 


FORTRAN 


FORTRAN (Program Number 5704-FO2) requires disk 
work space for $WORK during compilation. This space 
varies according to the size and complexity of the program 
and, generally, 10 tracks for a simulation area or 5 tracks 
for a main data area are sufficient. 


$SOURCE is not used by the compiler, but it is allocated 
so that the overlay linkage editor will have the space 
available. (The requirements for the overlay linkage editor 
must be met.) If linking is not required, at least 1 track 
must be specified for $SOURCE. 
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CCP/Disk Sort 


CCP/Disk Sort (Program Number 5704-SM7) requires 

disk work space for $WORK during program generation, 
SWORK is used to store the object program, and its size 

is therefore relative to the size of the object program—not 
to that of the source program. Each object record requires 
64 bytes, and four entries are stored per sector. Because 
each simulation area track can contain 96 records, 2 tracks 
are usually sufficient for most sort generations. 


$SOURCE is not used by the generator, but it is allocated 
So that the overlay linkage editor will have the space 
available. (The $WORK and $SOURCE files must reside 
on a simulation area for CCP/Disk Sort.) 


In all cases, the overlay linkage editor requirements for 
$SOURCE and $WORK must be met. 


Basic Assembler 


The Basic Assembler (Program Number 5704-AS2) requires 
work space for assembly as shown below. (For more 
information, refer to System/? Basic Assembler Reference 
Manual, SC21-7509.) Number of Source Statements 
includes source statements generated (expanded) by the 
macro processor. 





Number of Tracks 
for $SOURCE 















Number of Main 
Source Simulation Simulation 
Statements Area Area 


100 2 1 2 
200 4 2 4 
300 5 3 6 
400 7 4 7 
500 8 4 9 
600 10 5 11 
700 11 6 12 
800 13 7 14 
900 15 8 16 
1000 16 8 18 
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Number of Tracks 
for $WORK2 


Main 


OWN AAA HP WH = 


To generate an object module, the requirements for the 
overlay linkage editor must also be met. If macros are 
used, the macro processor is executed before the Basic 
Assembler, but the requirements are still as shown in the 
preceding estimates. 


SWORK is used to store the object program, and its size 

is therefore relative to the size of the object program—not 
to that of the source program. Each object record requires 
64 bytes, and four entries are stored per sector. Because 
each simulation area track can contain 96 records and 

each main data area track can contain 192 records, 2 tracks 
are usually sufficient for most assemblies. 


Number of Tracks 
for $WORK 


Main 

















Simulation 
Area 





(see below) 


Overlay Linkage Editor 


The overlay linkage editor (SOLINK program) can be 


invoked automatically by the compilers or by the assembler. 


It requires work space as shown below. The size of the 
work areas depends on the amount of storage available 
(partition size) rather than on the number of statements. 


Number of Tracks for 
$SOURCE/S$WORK 


Simulation Main Data 
Partition Size Area Area 


4 
4 
5 
6 
6 
7 
8 
8 


anan»r FP BRWWWNHD 








As an example in the use of this information, assume that 
a 200-statement RPG II program is to be compiled in a 
32K partition. Work files are to be on a simulation area. 
RPG II requires 4 tracks, and the overlay linkage editor 
requires 8 tracks. Therefore, 12 tracks should be specified 
for $$OURCE, and 12 tracks should be specified for 
$WORK. 


Large index Files 


Work files are also used in processing large indexed disk 
files. With a large indexed file, the amount of time needed 
to sort the keys at end of job step may be excessive; this 
amount of time is most significant when adding a large 
number of records to the file, performing an unordered 
load, or executing $COPY with REORG-NO and with 
OMIT or DELETE specified. This sort time can be 
reduced if a work file is used. The optional work file 

can either be allocated by the user or be automatically 
allocated by the system. 


The user allocates the work space by supplying a 
$INDEX45 or a $INDEX40 FILE statement. Or, the system 
attempts to allocate the work space if either of the follow- 
ing conditions exists: 


@ Neither a $INDEX45 nor a $INDEX40 FILE statement 
is supplied. 


@ The space requested via a $INDEX45 or a $INDEX40 
FILE statement is not large enough. 


To automatically allocate the work space, the system 
always checks for sufficient space on the main data area 
of D1 first; if sufficient space is not available on D1, the 
system then checks the main data area on D2; if the space 
on D2 is insufficient, the search continues on the available 
main data areas until either sufficient space is found or a 
message is issued to indicate that the system cannot auto- 
matically allocate the work space. 


The restriction on the maximum number of files allowed 
by the system applies to all files automatically allocated 

by the system as well as the files allocated by the user. 
Therefore, in order to use the work file, you must not have 
previously specified the maximum number of files allowed. 


If you wish to provide the work space with a $INDEX45 


or a $INDEX40 FILE statement, the following informa- 
tion will aid you in determining the required size. 
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The work file, called $INDEX 45 or $INDE X40 is used to 
sort the added keys and then merge the added keys into 

the index and must be large enough to contain all of the 
keys added to the file. If the program adds records to more 
than one indexed file, the work file must be large enough 

to contain all the keys for the file whose added keys occupy 
the greatest key index area. The work file should be as 
close as possible to the beginning of the file whose keys 

are being sorted or on a different disk drive. This arrange- 
ment minimizes the disk seek time. 


The work file must be named $INDEX45 or $INDEX40 and 
be located on a main data area. To determine the number 
of tracks required for the work file, use the following 
formula: 


Number of adds = Ste, + 48 = Tracks for 
(key length + 4) ; 

main data 
area 


After dividing 256 by key length + 4, the remainder should 
be dropped. After the other divisions, round the quotient 
to the next highest whole number. 


The work file can be used with multivolume files. However, 
it cannot be located on an area that contains one of the 
offline volumes of a multivolume file. The data module 
containing the work file must remain online while the 
program is run. The work file must be RETAIN-S. If 
RETAIN-T or RETAIN-P is specified, the system forces 

it to RETAIN-S. 


For small indexed files of 10 tracks or less where the sort 
time is negligible, a work file does not improve performance 
and should not be used. 


For this performance option, no change to the source 
program is needed. Also, programs need not be recom- 
piled to use this option: only one additional FILE OCL 
statement is needed. 


The system allocates disk space for the $INDEX45 or 
$INDEX40 work file Prior to allocating space for any 

other file(s) used by the program. Therefore, if you specify 
a location for any file(s) used by the program, you should 
also specify a location for the $INDEX45 or SINDEX40 
work file. This procedure prevents the system from 
attempting to assign the same disk space to two different 
files. 


For additional considerations on when to specify SINDEX45 


or $INDEX40, see File Share under Multiprogramming Con- 
siderations and Restrictions. 
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MULTIVOLUME DISK FILES 


When a file is too large for one main data area, it can be 
continued on one or more subsequent main data areas; 

such files are called multivolume files. (A volume is one 
main data area.) Multivolume files are not supported on 
simulation areas. Multivolume files can be online or offline. 
A file is online if all volumes are mounted when the program 
begins. An online file has an equal number of UNIT and 
PACK parameters; an offline file has fewer UNIT param- 
eters (shares same unit). Offline multivolume files can 

only be used on drives 1 (when an IPL is performed from 
3344 drive 3) and 2. 


The way in which a disk multivolume file is created depends 
on the file type. For a sequential or indexed file, the 
records are stored in consecutive locations, in the order 
they are read. One main data area is filled at atime. For 
sequential files, each volume must be filled before the next 
volume is allocated and loaded. For indexed files, each 
volume need not be filled. Each indexed volume is loaded 
until a key field is reached that is higher than the HIKEY 
for that volume; then the next volume is allocated and 
loaded. Indexed files must be loaded in key field sequence. 
A message occurs if a volume is filled and there is no record 
with a key field equal to the HIKEY for that volume. 


For example, suppose the HIKEY for a volume is 166, and 
a record with the key field 162 is loaded. It is less than the 
HIKEY, so it is loaded on the volume. Next, a record with 
the key field 170 is loaded. Record 170 is loaded on the 
next volume, and an error message occurs. The reason for 
the error message is that a key field record equal to 166 
was not loaded before loading records to a new volume. 
This error message can be bypassed. A record can be 
loaded on the next volume, and at some future time a key 
field record less than or equal to the HIKEY can be inserted. 
A random add is required to add a record higher than the 
highest key on the volume but lower than or equal to the 
HIKEY. 


Indexed and sequential files may be either online or offline. 


Removable data modules can be used when sequential or 
indexed files are created. A data module is mounted, the 
system indicates when it is full or the high key is reached, 
and then the next data module is mounted. When two 
drives are available, two data modules can be mounted. 
When the first one is completed, it can be replaced with a 
third while the program processes the second data module. 
In either case, no more than 192 volumes (96 for indexed 
files) can be used per program. 


Space can be allocated on all volumes of a multivolume file 
if the volumes are online at the time of the allocation. 
Space can also be allocated for an offline file, other than 
the initial volume, but the volumes must be empty or space 
known to be available. Both fixed and removable data 
modules can be used with any online multivolume file. 
Space for a volume of a multivolume file is reserved after 
one or more records are placed in that volume. 


Direct files must be online. The maximum number of 
volumes, therefore, is two on a two-drive 3340 system, or 
four on a four-drive 3340 system. 


Processing offline multivolume files depends on the access 
method a program uses. If records are read from a sequen- 
tial or indexed file, a data module is mounted; when all the 
records have been read from the data module, the next data 
module is mounted. With two drives, two data modules 
are mounted; when all the records have been read from the 
first data module, that data module may be replaced with 
the third while the program reads from the second data 
module. When online, any combination of fixed and 
removable data modules is acceptable, but all must be 
mounted and must remain mounted. Only four volumes 
will be used during online random processing (direct or 
indexed random accesses) regardless of the number speci- 
fied in the OCL. 


MULTIVOLUME TAPE FILES 


A tape file may also be too large for one tape and can be 
continued on one or more tapes. Such files are called 
multivolume tape files. (A volume is one tape.) 


When end of volume is reached on a multivolume tape file, 
that volume rewinds to load point and unloads. If the drive 
that is to contain the next volume (whether the same drive 
or another drive) is not in a ready condition, an error 
message is issued. 


Processing continues when the drive that is to contain the 
next volume is made ready. When using alternating drives, 
if the next volume is mounted and the drive is ready when 
end of volume is reached, processing continues without 
stopping. 


MULTIFILE TAPE VOLUMES 


Just as a disk normally contains more than one file, more 
than one file can exist on a reel of tape. If this is the case, 
each file has an associated file number. The system uses 
the SEQNUM parameter on the tape FILE OCL statement 
to indicate the file number and position the tape to the 
desired file. 
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The sequence number indicates the relative position of the 
file on the tape volume and is incremented by one from 
one file to the next. 


Null Files on Tape 


A null file is a file on disk that has no data records in it; 
for example, a null file may occur if a user’s error or excep- 
tion file has no records on some days but does have some 
records on other days. If the user has a procedure that 
always backs up that file to tape, it is important to know 
what happens to null files on a multifile tape volume. 


Unlabeled Tapes 
A multifile tape volume can contain all unlabeled files. 
When a file is copied to tape, it is followed by two tape 
marks (TM): 

FILE1 TM TM 
If a second file is added to this tape and a SEQNUM-2 
parameter is specified, and if that file contains data, it will 
result in: 


FILE? TM FILE2 TM TM 


But if the second file (FILE2) contains no data, the result 
is: 


FILE1 TM TM TM 


And if a third file (FILE3) is added to this tape, SEQNUM-2 
must be specified and the result is: 


FILE1 TM FILE3 TM TM 
In this example, if the third file is added, and SEQNUM-3 
is specified instead of SEOQNUM-2, a hait wil! be issued un- 
less END-LEAVE had been specified for the second file. 


In any event, with unlabeled tapes, a null file is not saved. 
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Labeled Tapes 


With labeled tapes, however, null files can be saved on tape 
and later restored to disk. !f one file containing data is 
written to tape, it looks like this: 


VOL HDR TM FILE1 TM TL TM TM 


where VOL represents the volume label, HDR represents 
the header labels, TL represents the trailer labels, and TM 
represents a tape mark. 


If a second file is added to this tape and a SEQNUM-2 
Parameter is specified, and if that file contains data, it will 
result in: 


VOL HDR TM FILE1 TM TL TM HDR TM 
FILE2 TM TL TM TM 


But if the second file contains no data, the result instead is: 


VOL HDR TM FILE1 TM TL TM HDR TM TM 
TL TM TM 


And if a third file is added to this tape (SEQNUM.-3), the 
result is: 


VOL HDR TM FILE1 TM TL TM HDR ™ TM 
TL TM HDR TM FILE3 TM TL TM TM 


If the third file (FILE3) is added and SEQNUM.2 is speci- 
fied instead of SEQNUM-3, then the result is as follows: 


VOL HDR TM FILE1 TM TL TM HDR TT 
FILE3 TM TL TM TM 


Note that in any case if a file is added toa multifile tape, 


it is assumed to be the last file on the tape and all subse- 
quent files on the tape are not accessible. 
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PROGRAMMING CONSIDERATIONS 


If the root segment of a program is too large, the system 
may issue an error message while attempting to open a disk 
file. This message indicates that certain fields are located 
at a main storage address above logical 40K (in a batch 
Partition) or above 24K (for a CCP task). Normally, this 
message occurs only if the program has large I/O areas. 
Following are some actions that may be tried in attempting 
to circumvent this message: 


@ Specify SHARE-NO for files used in a batch Partition. 
@ Reduce the block size of files in the program. 

@ Remove double buffer specifications. 

@ Reduce the size of the core index. 


®@ Recompile the program specifying a smaller execution 
size (for example, 40K for a batch program; 24K for a 
CCP program). 


For additional information, see Disk Device Support in the 
System/3 Mode! 15 System Control Programming Macros 
Reference Manual, GC21-7608. 


Using Program Number 5704-SC2, any open file is closed 
when end of job occurs or a 2 or 3 option is taken to a 
message. Using Program Number 5704-SC1, open files are 
closed at end of job or when a 2 option is taken to a 
message; open files are not closed when a 3 option is taken 
to a message. 


COBOL, FORTRAN, and assembler users can control file 
open and close; RPG |! users cannot control open and 
close. As a result, each program or subprogram must 
explicitly close any file that is opened. 


Library Facilities 
LIBRARY DEFINITION 


A library is a space on disk used for storing programs and 
procedures. There are two types of libraries: source and 
object. Source libraries contain source programs and proce- 
dures of OCL statements; object libraries contain executable 
object programs (load modules) and nonexecutable object 
programs (routines). Libraries are only located on simuta- 
tion areas, not on main data areas. 


The System/3 library maintenance program is used to: 
@ Create libraries 


@ Enter source programs, OCL statements, and object 
programs into libraries 


@ Maintain libraries 
@ Create files containing library entries 


The library maintenance program creates a separate direc- 
tory for each library. Every library entry has a correspond- 
ing entry in its library directory. The directory entry con- 
tains such information as the name and location of the 
library entry. The program also creates a system directory 
that contains information about the size and available space 
in libraries and their directories. 


SOURCE LIBRARY 


A source library is a disk space for storing source programs, 
specifications, and procedures. Source programs are sets of 
user instructions, the most common of which are RPG II 
source programs and disk sort sequence specifications. 
Procedures are groups of OCL statements used to load 
programs and may be followed by input data for the pro- 
grams. (Procedures for system service programs can, for 
example, contain control statements.) 
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The following illustration shows the relative location of a 
source library with respect to the user area and object 
library: 


User Area 


Source Library Directory 


Source Library containing: 


@ Source program 
statements 


@ Procedures 


Object Library Directory 


Object Library 





Source statements and procedures are two logically differ- 
ent types of entries. When these entries are copied into 
source libraries, they are given different source library 
designations. Source programs are given an S library desig- 
nation; procedures are given a P library designation. The 
following illustration shows the logical entries within the 
source library: 


Source Library 


S Library Entries 


and 


P Library Entries 





The S library entries are source programs. Procedures 
cannot be executed from this library. 


The P library entries are procedures which can be executed. 


File Facilities 2-26.1 


This page intentionally left blank. 


2-26.2 


Physical Characteristics 
A source library has the following physical characteristics: 
@ Size: The minimum size of a source library is one track. 


@ Directory: The directory acts as a table of contents and 
contains the name and location of each source library 
entry. The first two sectors of the first track are always 
assigned to the directory, with additional sectors used 
as needed. 


® Organization of Entries: Entries (source statements and 
procedures) within the source library need not be stored 
in consecutive sectors. An entry can be stored in widely 
separated sectors. Within each sector is a pointer to the 
sector that contains the next part of the entry. 


The boundary of the source library cannot be expanded; 
therefore, an entry must fit within the available library 
space. The system provides maximum space within the 
prescribed limits of the source library by compressing 
entries. That is, all duplicate characters are removed 
from the entries. Later, if the entries are printed or 
punched, written to diskette, or copied to a file, the 
duplicate characters are reinserted. 


® Location: A source library can only be located on a 
simulation area, not on a main data area. There is only 
one source library per simulation area; however, source 
libraries may reside on several simulation areas. 


Note: When the size of the source library is changed or 
the source library is reorganized, all temporary entries 
are deleted. 


OBJECT LIBRARY 


An object library is a disk area used for storing object 
programs and routines. Object programs (also known as 
load modules or executable programs) are programs and 
subroutines that can be loaded for execution. Routines 
(or nonexecutable programs) are programs and subroutines 
that need to be link-edited before they can be loaded for 
execution. Routines are used by compilers and (except 
for FORTRAN) must be on the same simulation area as 
the compiler using it. 


The following illustration shows the relative location of 


the object library with respect to the source library and 
user area: 


Source Library (optional) 


Object Library Directory 


Object Library containing: 


1. Executable object 
programs 


2. Routines (nonexecutable 
object programs) 


Upper Boundary 
User Area 
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The object library contains two logically different types 
of entries: object programs and routines. When these 
entries are copied into the object library, they are given 
different object library designations. Object programs are 
given an O library designation: routines are given an R 
library designation. The following illustration shows the 
logical library entries within the object library. 


Object Library 


O Library Entries 


Permanent Entries and 


R Library Entries 


O Library Entries 
Temporary Entries and 


R Library Entries 





The O library entries are executable programs. They are 
loaded by the LOAD statement. 


The A library entries are nonexecutable routines used by 
the compiler. 


Physical Characteristics 
An object library has the following physical characteristics: 


@ Size: The size of the object library depends on whether 
or not the library is on a system pack (a simulation area 
containing the system programs). An object library can 
be created on any simulation area, but one library con- 
taining the system programs must be online. The 
minimum size of an object library is 3 tracks. 


The disk area for an object library consisting of system 
programs must also be large enough to contain a scheduler 
work area for disk system management and a system 
history area. The number of tracks for the scheduler 
work area and the system history area are not included 

in the number of tracks specified for the library; the 
library maintenance program calculates and assigns the 
additional space. (See Scheduler Work Area under 

File Facilities.) 
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Directory: The directory acts as a table of contents and 
contains the name and location of the object library 
entries. If the object library is on a system pack, three 
of the requested tracks are reserved for the directory. 

lf not, only the first track is reserved for the directory. 
The user may override these directory sizes by specifying 
the DIRSIZE parameter en the ALLOCATE statement 
of the library maintenance program. 


Upper Boundary: When copying temporary entries 

into the object library, the upper boundary of the library 
automatically expands as additional tracks are needed if 
the space following the object library is available. The 
upper boundary of the library is extended to the end of 
the simulation area or to the first temporary or perma- 
nent file. At the successful completion of the copy, 

the upper boundary is returned to the track boundary 

at the end of the last temporary entry. 


If the copy was not completed successfully, the upper 
boundary may remain extended. When a permanent 
entry is placed in the library or the library is reorganized, 
all temporary entries are deleted and the upper boundary 
returns to its original location. Permanent entries 
cannot exceed the original upper boundary. 


To make efficient use of this feature, the area next to 
the upper boundary of the object library should be kept 
free of data files. When disk system management auto- 
matically allocates file space, the area next to the object 
library is probably free because the files are placed as 
close to the high end of the simulation area as possible. 
Users should also allocate files toward the high end of 
the simulation area. This leaves room for object library 
expansion. 


Organization of Entries: Entries are stored in the object 
library serially; that is, a 20-sector program occupies 20 
consecutive sectors. Temporary entries follow all 
permanent entries in the object library. 


Maintaining an Object Library 


Gaps can occur in the object library when entries are 
deleted. The associated directory entries point to these 
gaps. When the library maintenance program places a new 
permanent entry in the library, it searches the directory 

for a gap that has the same number of sectors, or the fewest 
sectors over the number required by the new entry. If the 
entry is smaller than the gap, the last part of the gap is not 
pointed to by a directory entry. Since this gap has no 
directory entry, it cannot be used until the library is 
reorganized. 


The library maintenance program should be used to reor- 
ganize the library when a great number of additions and 
deletions have been done (creating an excessive number of 
unavailable sectors), or when there is no apparent room. 

In reorganizing entries, the library maintenance program 
deletes temporary entries and shifts entries so that gaps do 
not appear between them. This reorganization makes more 
sectors available for use. 


By printing the system directory. the library maintenance 
program can be used to determine how many sectors are 
available. 


LIBRARY LOCATIONS 


Libraries can be located by the system anywhere on a simu- 
lation area. However, the location of a source library with 
respect to an object library is always the same: 


User Area 
Data files 


Source Library 

@ Procedures 

@ Source 
statements 


System 
History 
Area 


Checkpoint/ 
restart 
Area 


Tracks 0-7 






Scheduler 
Work Area 


Object Library 

@ Object 
programs | 

@ Routines 


User Area 
Data Files 


Extendable 
Upper 























Boundary 


If space is allocated for only a source or object library, the 
library maintenance program places the library in the first 
available disk area large enough to contain the library. When 
allocating space for a source library on a simulation area 
containing an object library, an area large enough for the 
source library must immediately follow the object library. 


The library maintenance program moves the object library 
to allow space for the source library to precede it. If an 
object library is being allocated on a simulation area with a 
source library, space for the object library must immediately 
follow the source library. 
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STORING PROGRAMS 


Three methods are available for storing programs into 
libraries: the library main* rance program, a specification 
on the RPG Ii Control! Ca: ,and the COMPILE OCL 
statement. 


Library Maintenance Program: Depending on user specifi- 
cations, the library maintenance program can store pro- 
grams by copying entries from one location to another 
(giving new names) within a library; copying entries from 
one library to another giving new names if required; copy- 
ing entries from the system input device to a library; or 
copying entries from a file to a library. 


(See Part 4 for additional information on the library 
maintenance program.) 
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RPG !/ Control Card: RPG II can indicate the type of 
object program output after the system compiles a source 
program. The compiled program can be stored in an object 
library, punched into cards, or written to a diskette, A 
Program written as a temporary entry in the object library 
is deleted by the next program written permanently in the 
object library or by the next program of the same name 
written as a temporary entry in the object library. The 
object program is written in the object library that contains 
the compiler, unless a COMPILE statement indicates 
otherwise. 


Column 10 on the RPG I! Control Card is used to specify 
the object output. Columns 75—80 are used to name the 
object program. When a name is not assigned, RPGOBJ 
is assumed. For detailed information on these specifica- 
tions, see the /BM System/3 RPG I! Reference Manual, 
$C21-7504. 


COMPILE OCL Statement: The COMPILE OCL statement 
tells the system to: 


® Compile a source program from a source library and 
store the object program in an object library, or 


® Compile a source program from the system input device 
and store the object program in an object library 


For the format of this statement, see COMP/LE statement 
in Part 1 of this manual. 


Sample Statements 




















This sample job stream tells the system that the source 
program named SALES is located on F1. The OBJECT-R1 
keyword parameter tells the system to place the object 
program on R1. 
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This sample job stream compiles a source program from the 
system input device and stores it in an object library on R1. 
If the OBJECT parameter was not coded, the program 
would be compiled and placed into the same object library 
as the compiler (F1). 
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PROCEDURES 


Procedures are sets of OCL statements in a source library. 
Procedures are stored in the source library via the library 
maintenance program. Since the records in the source 
library are compressed, a nested procedure containing a 
CALL statement should not be modified by a program run 
as part of that nested procedure. A procedure cannot 
contain more than one LOAD statement and cannot con- 
tain any JOB statements. All other OCL statements, except 
/&,/*, and /., are allowed in procedures. The CALL state- 
ment is allowed only in nested procedures. LOAD * state- 
ments are allowed in procedures; however, the object 
program must be read from the system input device, 


A maximum of 31 control statements can be included in 
procedures for the system service programs. The control 
Statements must follow the OCL statements in the proce- 
dure. A RUN statement must be the last OCL statement 
in the procedure to separate the OCL statements from the 
control statements. The RUN statement in the job stream, 
rather than the one in the Procedure, causes the system 


to run the program. 


The following example shows how to create a procedure 
with the library maintenance Program ($MAINT). The 
procedure name is PROC1 (NAME-PROC1 in COPY state- 
ment). This name identifies the procedure in the source 
library. The procedure is placed in the source library on 
F1 (TO-F1 in COPY statement). This procedure is referred 
to in all of the following examples. 
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To merge the procedure (unchanged) into the job stream, 
two statements are used in the job stream; this is the 
normal procedure call. 
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Parameters in any of the statements (except the INCLUDE 
1 statement) in a procedure for the first job step can be 
changed by procedure override statements placed between 
the CALL and RUN statements. Procedure override state- 
ments modify the procedure for the first job step. For 
example, the following changes can be made to procedure 
PROC1: 


@ in the first FILE statement (NAME-DALTOT), change 
the RECORDS parameter from RECORDS-1500 to 
RECORDS-1750. 


@ Change the parameter in the SWITCH statement from 
XXX01XXO to XXX10XX1. 


The following statements are needed in the job stream to 
call and modify PROC1. Note that the NAME parameter 
is also supplied in the FILE statement. This is necessary 


to identify the FILE statement to which the change applies. 


Therefore, the NAME parameter cannot be changed. 
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Note: \f a valid override statement is used to change a 
statement which contains an OCL error, an OCL error 
message will still be issued. 


Besides changing a parameter, a parameter in a procedure 
statement can be entirely deleted if it is a keyword param- 
eter. To delete a parameter in any of the statements, the 
keyword and hyphen are coded followed immediately with 
acomma. A PACK or REEL parameter (which is to be 
deleted by a procedure override statement) must precede 
the parameter that is to replace it. The procedure override 
statement in the following example deletes the RETAIN 
parameter completely. 























Page of GC21-5162-1 
Issued 28 September 1979 
By TNL: GN21-5674 


Statements can be added to a procedure by placing the 
added statements between the CALL and RUN statements. 
For example, to add a NOHALT statement to the proce- 
dure, the following statements are needed in the job 
stream: 

















Parameters can be omitted from all OCL statements in a 
procedure and then supplied between the CALL and RUN 
statements. For example, assume the procedure contained 
the LOAD statement shown. 


To run the ENDMON program, the entire LOAD statement 
did not have to be supplied; only the missing parameter 
was included in the job stream. 





16 32 
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Example 


Procedure override statements are logged on the system 
log device along with the statements in the job stream. 
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The statements from the procedure are merged with the 
preceding statements and printed. 


// CALL PROCL,FL 


XX LOAD ENDMON,R2 


XX FILE NAME-DALTOT,UNIT-F2yPACK-VOL04,RECORDS-1500, RETAIN-P 


// FILE NAME-DALTOT,RECORDS-1750 


XX FILE NAME~ACCTOT, LABEL-TOTAL,UNIT-Riy PACK-VOLO2, DATE-12/4/76 


XX SWITCH XXXOLXXO 
// SWITCH XXXLOXX1 
XX RUN 

// NOHALT 


// RUN 


Statements preceded by XX represent the procedure state- 
ments as they appear in the source library. The CALL and 
RUN statements and any statements intended as overrides 
to procedure statements or additions to the procedure 
begin with //. 


Switch characters can be used to determine whether or 
not a job step will be executed. The following example 
shows how they are used to call a procedure based on the 
results of a previous program. 


Assume that a Program has just completed executing 


successfully and has set the external indicators to 10101010. 
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The OCL statements following the completed Program are: 
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2 | 





Step 1 is not executed because the external indicators 
do not agree with the switch characters. An infor- 
mational message with the value of the external 
indicators is issued. The system then flushes to the 
next step. 


Step 2 is executed because the external indicators 
agree with the switch characters. (The switch charac- 
ter X tells the system to cancel the compare operation 
with the relative external indicator.) 


Step 3 is executed after step 2 is completed. 


Nested Procedures 


Some procedures are done in the same order every time a 
job is performed. Nesting procedures is a convenient 
way to link the procedures and requires a call to only the 
first procedure. Each procedure calls the next procedure 
until the job has been completed. 


Nested procedures provide several benefits: 
@ Programs are always run in the correct sequence. 


@ Operator intervention (and chance of operator error) 
is decreased. 


@ Files are less likely to be destroyed as a result of running 
nonrelated programs between steps of a job. 


Here is an example of how nested procedures might be 
used to back up a main data area containing files that will 
be used in the future. The OCL statements and control 
statements to be entered from the system input device to 
copy one main data area (D3) to another main data area 
(D2) would look like this if nested procedures were not 
used: 
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Assume that the preceding OCL statements were placed in 
the source library as procedures with the names DEALD2 
and CYD3D2, respectively. The use of nested procedures 
allows building a procedure to call other procedures. The 
following example shows how a nested procedure is built to 
call the procedures DEALD2 and CYD3D2: 
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To call the two procedures needed to perform the copy job 
described, only one CALL statement is required in the 
job stream from the system input device. 







Level 2 


DEALD2 


// LOAD $DELET,F1 
// RUN 
// REMOVE... 







// LOAD $COPY,F1 
// RUN 
// COPYPACK ... 







This CALL statement links the job stream to the nested 
procedure (CPYD32) used to call the procedures necessary 
to perform the copy job. CPYD32 contains two CALL 
statements that call the two procedures necessary to copy 
D3 to D2. 


Notice that CPYD32 contains only CALL statements. Any 
procedure within nested procedures can consist entirely 

of CALL statements and does not need a RUN statement 

to indicate the end of the procedure. Nested procedures 
allow an unrestricted number of CALL statements in a 
procedure. Therefore, CPYD32 could have more than two 
CALL statements if it were necessary to add any procedures. 
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For example, a company issues daily reports on goods 
bought and sold by calling the DAY procedure. By nesting 
procedures together, // CALL WEEK can be used to write 
a daily report and a weekly report. Once a month // CALL 
MONTH is used to write out daily, weekly, and monthly 
reports. Finally, daily, weekly, monthly, and yearly 

reports are written once a year by the YEAR procedure, 
which nests all of the other procedures together. 


// CALL YEAR 
YEAR 


/{ CALL MONTH 


// CALL WEEK 
// CALL MONSUM 


No more than nine levels of CALL procedures can be nested 
together. Levels of procedures are determined by the 
number of CALL statements away from the system input 
device a procedure is located. In this example, when 

// CALL YEAR is given in the system input device, the 
YEAR procedure would be one level away from the system 
input device. MONTH and END1 procedures are two levels 
away from the system input device when // CALL YEAR 
is given. 


With nested procedures, fewer OCL statements and control 
statements for system service programs are needed in the 
job stream from the system input device. However, certain 
rules must be followed to make nested procedures work: 


@ No more than nine levels of procedures are permitted. 


@ Each procedure may have an unrestricted number of 
CALL statements to the next level of procedures. 


@ Only control statements for system service programs 
and specifications for disk sort can follow a RUN 
statement; 31 control statements can be included in a 
procedure. 


@ Procedure additions or overrides supplied between the 
CALL and RUN statements in the job stream are merged 
only between the first LOAD and RUN statements 
encountered in the procedures. 
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// CALL WEEK // CALL DAY 





@ Procedure overrides are merged with the first similar 
(same identifier) statement before the RUN of the first 
LOAD and RUN encountered in the procedures, except 
for FILE statements, which are merged based on the 
NAME parameter. 


| @ Any OCL statements permitted before the RUN state- 
ment in the job stream are also permitted anywhere 
before the RUN statement in a procedure. 


Example of Nesting Procedures 


As an example of nesting procedures, assume the NOHALT 
statement is to be used to decrease operator intervention. 
In the iJlustration of nested procedures, the NOHALT 
statement could be placed between the CALL and RUN 
statements in the system input device. In this case, it 
would be read as an additional OCL statement for the 
DEALD2 procedure. However, it could be placed anywhere 
in the master procedure, CPYD32, or anywhere before 

the RUN statement in the DEALD2 or CYD3D2 proce- 
dures. The rule would still be followed no matter what 
procedure contained the additional OCL statement. 
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Example of Nested Procedure Restart 


Changing the value of SWITCH statement Qo permits the 
following procedure to be restarted from any of the steps 
within the nested Procedure. In this example, the proce- 
dure will begin executing at step F because the SWITCH 
statement sets the external indicators to agree with the 
switch characters on the // CALL E and // CALL F 
statements. 


© // SWITCH 00100001 
//CALLA,R1 
// RUN 






// CALL B,R1,0001XXXX 
/1 CALL E,R1,0010XXXX 
// CALL G,R1,0011XXXX 






// LOAD AA,R1 


// CALL C,R1,00010001 
// CALL D,R1,00010010 





// SWITCH 00010010 
// RUN 





// LOAD BB,R1 
// SWITCH 00100001 
// RUN 


// CALL F,R1,00100001 _ 


// LOAD CC,R1 
// SWITCH 00110001 
// RUN 






// CALL H,R1,00110001 
// CALL 1,R1,00110010 // LOAD DD,R1 
// SWITCH 0011001C 


// RUN 


// LOAD EE,R1 
// RUN 
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CATALOGING TO AN ACTIVE LIBRARY 


Program Number 5704-SC2 enables entries (permanent or 
temporary) to be stored (cataloged) in an object library 
located on an active program pack (a simulation area con- 
taining a program currently loaded for execution in another 
Partition). 


An object program can be cataloged to an active library, 
but in some cases, a program executing in another partition 
may be adversely affected. An active library is one from 
which a program is loaded for execution. That library 
becomes /nactive after end-of-job step for that program. 
(Note, however, that a CCP library is always considered 
active.) 


If an object program does not have overlays, once it is 
loaded into a partition for execution, there is no further 
need to access that library. However, if an object program 
requires subsequent library accesses (after the program 
has been loaded for execution), then an access to that 
library from another partition may cause problems. 


Figure 2-2 shows what can happen to another partition 
when cataloging to an active library. 


Some examples of a program requiring subsequent accesses 
to a library are: 


@ A program which requires an overlay from disk during 
execution, for example, an RPG II object program. 


@ A program which requires phase overlays during execu- 
tion, for example, a system service program. 


@ A FORTRAN program which invokes another program 
from that library. 


If all object library entries are permanent entries, then 
the only conflict arises when cataloging an entry of the 
same name as the program executing in another partition. 
(For either permanent or temporary entries, the overlay 
linkage editor does not allow cataloging a module with 
the same name as an active program running in a batch 
partition.) 


Cataloging to an active library is an option chosen during 
system generation. The configuration record program 

may also be used to change the support selected for catalog- 
ing to an active library (see Configuration Record Program— 
SCNFIG in Part 4 of this manual). The following three 
levels of catalog support are available: 


@ Disallow catalog to all active libraries. This support is 
identical to the 5704-SC1 support for cataloging to a 
program pack. With this level of support, any attempt 
to catalog an object library entry to an active program 
pack results in an F/ message. (The overlay tinkage 
editor will issue a message only if the program executing 
is a LOAD * or a temporary entry.) 


@ Allow catalog to active CCP libraries but not to other 
active libraries. This support is identical to 5704-SC1 
support for all active libraries except the CCP libraries. 
No message will be issued when attempting to catalog 
an object library entry to an active CCP library. 


@ Allow catalog to all active libraries. No message will be 
issued when attempting to catalog an object library 


entry to any program pack. 


Cataloging to an active library is supported by both the 
overlay linkage editor and the library maintenance program. 
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Activity in this partition: 
Cataloging to an active library 


Permanent 
Activity in Another Partition Entry 


Has a program been load- 
ed! into another partition 
from the active library? 


Does the program being 
cataloged have the same 
name? 


Does the program in the 
other partition require 
subsequent accesses to 
that library? 


Is the program executing 
in the other partition a 
LOAD! program? 


Is the program executing 
in the other partition a 
temporary program? 


Is the other partition 
affected? 


Overlay 
segments segments 
How is the other partition could be could be 
affected? changed 
unexpect- 
edly. 
The old version The old version 


of the program, of the program, 
rather than the rather than the 


new version, is new version, is 
| executed. executed. 
Overlay segments could be 


changed unexpectedly. 


Overlay segments could be changed Overlay segments could be changed 
unexpectedly. unexpectedly. 





1 All of the OCL for this Program was processed and the program was fetched into storage for execution. 


Figure 2-2. Cataloging to an Active Library 
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The following example shows the use of the option to 
catalog to the active CCP libraries: 


A user program updating a parts master file is initiated 
in partition 1 under control of CCP. This program was 
loaded from the CCP library on F2. While the parts 
master file is being updated, RPG II (in partition 2) 
compiles a program to order replacement parts; the 
object program is cataloged by the overlay linkage editor 
to the CCP library on F2. (F2 for partitions 1 and 2 is 
assigned to the same simulation area.) After the parts 
master file has been updated, the program to order 
replacement parts can now be executed in partition 1 
under control of CCP. 


Without the capability to catalog to an active CCP 
\ibrary, it would be necessary to catalog the object 
program to order replacement parts to a non-CCP 
library, shut down CCP, copy the object program from 
the non-CCP library to the CCP library, and start up 
CCP again before executing the program. 


Following is another example showing the use of the option 
to catalog to the active CCP libraries: 


CCP is executing in partition 1, batch programs are 
executing in partition 2, and programs are being com- 
piled in partition 3. All three partitions use the same 
program pack, While the batch partition (P2) is execut- 
ing, programs being compiled (in P3) can be stored in 
the object tibrary on the simulation area in use as the 
program pack for the three partitions. 


Use of the option to catalog to all active libraries is illus- 
trated by the following example: 


A user program performing an inventory analysis was 
loaded from R11 and is currently executing in partition 2. 
While the program is printing the report, the library 
maintenance program, executing in partition 3, can be 
used to copy the program that calculates a monthly 
summary analysis into the object library on F2. R1 for 
partition 2 and F2 for partition 3 are assigned to the 
same simulation area. 


User Considerations 


@ {f you catalog a CCP module for which the program 


find or format find option was not selected at CCP 
startup, the old version of the module (or a different 
module than the one intended) may be used if the new 
version is placed in a different location in the library. 


If you need to catalog an object module for which a 
conflict exists (see Figure 2-2), change the other parti- 
tion to HALT mode, and then perform the catalog 
operation when the other partition comes to end-of-job 
step. After the catalog operation, change back to 
NOHALT mode and continue. 
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System Facilities 
INITIAL PROGRAM LOAD (IPL) 


System operation begins with an initial Program load (IPL) 
which clears main storage and transfers the supervisor 

(a component of the system control program) from disk 
into main storage. 


IPL should be performed every time the system power is 
turned on, the system pack is changed, or a recovery 
procedure requires it. It is initiated from one of the 
following five sources: a card reader (alternate), the F1 
simulation area on drive 1, the R1 simulation area on 
drive 1, the F1 simulation area on drive 3 (3344 only), 
or the R1 simulation area on drive 3 (3344 only). 


IPL from drive 3 provides operation of the system entirely 
from fixed media. Also, it enables drives 1 and/or 2 to be 
used as offline devices when there are no simulation areas 
on drives 1 and 2 currently in use. In this Case, it is recom- 
mended that all 5444 unit codes (F1, F2, R1, R2) be 
assigned to simulation areas on drives 3 and 4. 


Choosing any of the disk program load positions results in 
a specific simulation area being assigned the F1 or R1 unit 
code. This assignment overrides any assignment made for 
that unit code during system generation. The assignment 

of this unit code is made for all partitions; this provides a 

common system pack for all partitions. Following are the 
simulation areas assigned to the four switch positions: 


Switch Position Area Assigned 


Disk 1 F1 DIA 
Disk 1 R1 D1B 
Disk 3 F1 D3A 
Disk 3 R1 D3B 


Note: Ona 2-, 3-, or 4-drive 3340 system, IPL is performed 
only from drive 1. 
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After the IPL device is selected and the Program Load 
button is pressed, the date prompt appears on the CRT 
screen, The date is entered in the format chosen during 
system generation (either mm/dd/yy or dd/mm/yy). If the 
system date is not given, it must be supplied before any 
program execution is initiated. The date is then supplied 
with a DATE OCL statement or a DATE command. The 
system date is used for time stamping certain messages by 
the time-of-day macro instructions, the RPG li TIME 
operation code, and by the COBOL and FORTRAN CFTOD 
modules. The system date can be changed by the operator 
only with the DATE command and only when all partitions 
are at end of job. If the interval timer is specified at system 
generation, the system date is changed at midnight, when 
the timer changes from 23.59.59 to 00.00.00. 


After the response to the system date has been processed, 
the CRT display contains EJ messages for all the partitions. 
At this point, there are three possible actions: 


@ If spooling was not chosen during system generation, 
the operator can now initiate program execution by 
responding to the EJ message for the partition in which 
the program is to execute. 


@ When spooling is chosen at system generation, the 
spooling support is loaded with the supervisor during 
IPL. If spool is not going to be used, the operator has 
the option to cancel spooling support at this point. 

The CANCEL SPOOL command causes the spooling 
routines to be removed from main storage, making addi- 
tional main storage available to any partition. (You 
must perform another IPL when spooling support is 
desired.) The operator can now initiate program execu- 
tion by responding to the EJ message for the partition 
in which the program is to execute, 


@ When spooling is to be used, the operator can start 
spooling either by responding to an EJ message for a 
partition or by entering a START SPOOL command. 


Activating spool automatically by initiating execution 
in a partition causes space for the spool file to be 
obtained on a main data area according to the disk unit 
and size specified during system generation. Any exist- 
ing spooled data remains in the spool file and is not lost. 


Activating spool with a START command is required 
only to override the disk unit and/or size of the spool 
file specifications made during system generation or to 
remove any existing spooled data. After the START 
command has been entered and processed, the CRT 
display contains SPOOL IS ACTIVE messages for each 
partition being spooled. After jobs have been placed 
on the spool reader queue, the operator can initiate 
program execution by responding to the program 
message for the partition in which the program is to 
execute. (See /BM System/3 Model 15 User’s Guide to 
Spooling, CG21-7632.) 


On 5704-SC2, there are generally more messages on the 
CRT than on 5704-SC1. If all active messages do not 

fit one CRT screen, it may be necessary to scroll through 
all messages by repeatedly pressing the PF 12 key. 


At this point, it may be helpful for the operator to display 
the system status to determine that the system is set up 

as desired. The DISPLAY STATUS command provides 
the system status on the CRT screen. 





PROGRAM EXECUTION 


A minimum of two OCL statements are required to load a 
program into the system for execution. LOAD and RUN 
are the two basic OCL statements needed to load and 
execute programs; for those programs in which no disk 
files are used, they may be the only OCL statements. The 
LOAD statement identifies the program to be executed 
and indicates whether the program is to be loaded from 

an object library or from the partition’s system input 
device. One LOAD statement is required for each program 
executed. 


The following examples show the OCL statements needed 
to load two system service programs: disk initialization 
and file delete. 


// LOAD $DELET,F1 





The file delete program is 
loaded. 


// LOAD $INIT,F1 


The disk initialization program 
is loaded. 
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To load an object program from the system input device, 
an * must follow the word LOAD. (The * tells the system 
that an object deck follows the RUN statement.) A /* 
statement must follow the object deck; any data will 
follow the /*. The following example illustrates the state- 
ments required to load a program from the system input 
device: 





OBJECT) 
DECK 


The object program is temporarily copied into the object 
library on the system pack and then loaded into main 
storage for execution. LOAD * Programs will be accepted 
in any partition; 5704-SC2 permits several partitions to 
execute non-overlay LOAD * program simultaneously. 
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Job and Step Processing 


The input stream (programs to be Processed) is made up 
of two different units of work: jobs and job steps. To 
support these two units of work, the system provides two 
Processing modes: job mode and step mode. Job mode is 
indicated to the system by the presence of JOB statements 
in the input stream. Step mode is indicated by the absence 
of JOB statements in the input stream (see Figure 2-3), 
Both modes can be used in the multiprogramming environ- 
ment (two or more partitions running concurrently) or 
when only one partition is in use. One partition can be 
running in job mode while another is in step mode. Only 
job mode can be used in Partitions with spooling active. 


Job Step Mode 


A job step is a request for execution of a program and 
includes a description of the system resources required by 
the program. A job step may or may not be part of a job. 
When a job step is part of a job, the system is in job mode 
(indicated by the presence of a JOB OCL statement). When 
rio JOB OCL statements have been encountered in the 
input stream in which job steps are running, the system 

is in step mode. In step mode, each set of LOAD/RUN 
statements is processed independently. The system input 
device is released after the RUN statement has been 
processed and the program is executing. Step mode is not 
supported in partitions that have spooling support active. 


Note: Some programs, such as the RPG II compiler and 
disk sort, require system input device dedication while 
executing, in which case, the system input device remains 
assigned to that partition until those programs release it. 
An attribute bit in the object library directory entry 
indicates whether or not a Program requires system input 
dedication. 


When a 2 or 3 option is selected for a system message and 
the system is in step mode, only the current job step is 
canceled. The system flushes the input stream until a 
JOB, LOAD, CALL, /., or /& statement is encountered. 

!f a JOB, LOAD, or CALL statement terminates the flush, 
the system input device Stays assigned to the partition, 


The LOAD statement is usually the beginning of a job 
step’s OCL; however, the beginning may be indicated by 
one of the following: 


@ The first record of a job’s OCL. 


@ If the previous job step was canceled and the flush 
ended ona /. or /&, the record after the /. or /&. 


@ If the previous job step was canceled and the flush did 
not end on the /. or /&, the statement that ended the 
flush. 


@ If the previous job step was not canceled and the parti- 
tion is not in a nested procedure, the record after the 
last record read for the previous job step. 


@ If in anested procedure, the statement after the CALL 
to a procedure with a LOAD statement (end of procedure 
goes to the statement after the CALL in a nested proce- 
dure or, if at the end of a procedure nest, the next 
record in the input stream). 


The statements following this record (the beginning of a 
job step’s OCL), through the next RUN statement and any 
records read from the input stream by this step, are asso- 
ciated with this job step. In job mode, any immediately 
following /. or /& statement is also included. If the step is 
canceled in job mode, the end of the step’s OCL is the end 
of the OCL for the job in which it is contained. If the step 
is canceled in step mode, the end of the step’s OCL is the 
statement before the next /., /&, CALL, LOAD, or JOB 
statement (the /. or /& statement is included in this step). 


Job Mode 


A job is a group of related job steps that must be executed 
in sequence. Each job step must be successfully completed 
before the next job step can be executed. A job includes 
all the programs, files, and OCL statements necessary to 
complete the task. The beginning of a job is usually indi- 
cated by the JOB OCL statement in the input stream for a 
partition. However, the beginning of a job’s OCL may be 
indicated by one of the following: 


@ The first record in an input stream after IPL. 


@ With input spooling, the first record of the spooled 
records for a job. 


@ The first record from the input stream after the last 
record of the previous job (if the previous processing 
mode was job mode) or job step (if the previous process- 
ing mode was step mode). 


All OCL statements that follow this record or the JOB 
statement but precede the next JOB statement are associ- 
ated with the job. Any number of LOAD/RUN combina- 
tions and/or CALL/RUN combinations can be included in 
ajob. The job name from the JOB OCL statement is used 
to identify, monitor, and control jobs when spooling. 


When job mode is used, JOB OCL statements must be 
included in the input stream to define the jobs. They 
indicate to the system that job mode is active and that the 
system input device assigned to the partition will not be 
released until job mode is terminated. Processing in job 
mode ensures that a group of programs are executed 
sequentially, in the correct partition, and in a partition 
that has sufficient main storage to accommodate all steps 
of the job. When a job is initiated, the system checks the 
PARTITION and CORE parameters, if specified, in the 
JOB OCL statement to ensure that the job is initiated in 
the correct partition and that enough main storage is 
allocated to the partition to satisfy the CORE parameter. 
If either of these conditions is not met, the system issues 
a message and the job must be canceled. The system input 
device, unless it is the CRT/keyboard, must be dedicated 
to the partition being run in job mode on nonspooling 
systems, or on systems that do not have input spooling. 


To end job mode and return to step mode, a /. OCL state- 
ment is placed in the input stream. This statement indi- 
cates to the system that job mode is to be terminated and 
the system input device is no longer dedicated to that job. 
Job mode will resume when another JOB statement is 
processed. 


Job mode must be used when spooling is active. The spool- 
ing routines handle job scheduling and job initiation. Jobs 
are scheduled for execution based upon the priority speci- 
fied in the JOB statement. Spooling ensures that jobs are 
executed in the requested partition, and that all job steps 
are executed sequentially in the same partition. Jobs that 
cannot be scheduled for initiation because the required main 
storage is not available are bypassed until the required 

main storage is available. 


When a 2 or 3 option is selected to a system message and 
the system is in job mode, all remaining job steps in the 

job are canceled. On systems that have input spooling, 

job processing in the partition resumes with the next job 
on the reader queue. On systems that do not support input 
spooling, the job stream is flushed until a JOB or /. state- 
ment is encountered. If output spooling is supported on 
the system, spooled output that has been created by the 
job are saved. If a JOB statement terminates the flush, the 
system input device stays assigned to the partition. 


System Facilities 2-45 





Without Procedure 







Input Stream OCL Job and Step Input Stream OCL Job and Step 
Classification (with cancellation Statements Read From Classification (without cancella- 
of a Job or Job step as indicated) the Input Device tion of a Job or Job step) 















— 






[ // DATE 
// NOHALT 
// JOB 
// LOAD 
// RUN 













Job 1 L__/& ee 
[// HALT) => 
Step 2 // LOAD Step 2 
cancellation flush // RUN Sadasil 
// LOAD Step 3 










// RUN —J 











[JOB 
cancellation flush ; // LOAD Step 1 Job 2 
// RUN 
Los. a eay 
[HALT = 
// LOAD 
Job (step) 3 // RUN Job (step) 3 
cancellation flush (data) 
Ps __J 
| // PRINTER | 
L_// LoG Job (step) 4 anne 
1 /1 LOAD 
cancellation flush // RUN 
18 | 
// NOHALT™) 
Job (step) 5 // LOAD Job (step) 5 
// RUN 

















Job (step)4 




















Figure 2-3. (Part 1 of 2). Job and Job Step Classification 
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Figure 2-3 (Part 2 of 2). Job and Job Step Classification 
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EXTERNAL INDICATORS 


External indicators enable a user to influence the execution 
of a program from a source outside the program itself. 
Eight external indicators are assigned to each partition: 

all external indicators are set off during IPL. The SWITCH 
OCL statement is provided to modify the external indi- 
cators for the partition in which the statement is received. 
When a SWITCH statement sets an indicator, that indicator 
remains on until one of the following occurs: 


® Another SWITCH statement sets it off. 

®@ A JOB statement is received in the Partition. 

@ A/. statement is received in the Partition, in job mode. 
® Another IPL is performed. 


Eight characters in the SWITCH statement correspond to 
the eight external indicators. 


In the following example, a program using one disk file 

(INVMSTR, an inventory master file) uses the SWITCH 

statement to set on one external indicator and set off all 
others. 





8 12 16 20 24 28 32 
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SYSTEM SEVERITY CODES 


A severity code is an indicator to the system specifying 
when the default option can be used for a system message. 
When a severity code is not specified on the NOHALT OCL 
statement, the operator must respond to ail system mes- 
Sages except informational messages; this includes informa- 
tional end-of-step and end-of-job messages. 
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The severity code can be 1, 2, 4, or 8. The system selects 
the default option for system messages of a severity less 
than or equal to the code indicated. Severity codes and 
defaults are assigned to most system messages and cannot 
be altered. If the severity assigned to a system message is 
greater than the severity indicated in the NOHALT state- 
ment, the system stops, waiting for the operator's response. 
If the severity assigned to the message is equal to or less 
than the severity indicated in the NOHALT statement, the 
system selects the default option for the system message 
and processing continues. The severity code does not affect 
system messages having no default options or requiring 
operator intervention. Severity code 1 is the least severe; 
severity code 8 is the most severe. Severity codes are reset 
to no severity at end of job. For more information on 
system messages and severity codes, see /BM System/3 
Model 15 System Messages, GC21-5076. 


Note: Halts displayed in the message display unit are not 
affected by the SEVERITY parameter. 


JOB STREAM EXAMPLE 


The example in Figure 2-4 illustrates the Processing of a 
job stream and some uses of OCL statements (part 1). The 
example consists of two jobs with each job containing 
related job steps. The jobs involve three files: customer, 
inventory, and transaction. The customer file contains 
such information as customer names and addresses, total 
amounts of charges over a period, and total amounts of 
payments over the same period. The inventory file contains 
such information as item numbers and descriptions, prices 
of the items, and the numbers of items in stock. The 
transaction file contains such information as orders for 
items, refund orders for items returned, and customer 
payments. The transaction file is used to update the 
inventory and customer files. 


The OCL statements for the jobs are shown in Figure 2-4. 
Sets of statements in the figure are numbered. The expla- 
nations corresponding to those numbers are given in the 
following section. Separate job streams are indicated by 
statements 4 through 7 and 9 through 13. 


QQ) The LOG statement assigns the 1403 printer as the 
log device for partition 1. The DATE statement 
supplies the system date, 10/20/76. The operator can 
enter the system date by responding to the IPL 
prompt for DATE or by entering a DATE OCC or 
OCL before the first JOB, LOAD, or CALL statement 
after initial program toad. 


@) The JOB statement places the system in job mode. 
The job must be submitted in partition 1 (PARTITION 
parameter). 


There must be 32K of main storage available in parti- 
tion 1 to execute the job (CORE parameter). 


Spooling must not be active (SPOOL parameter). 
The JOB statement assigns the name BUILD to the 
job. 


@) In the first job, three programs are being compiled 
and executed. One transfers the customer file from 
cards to disk, one transfers the inventory file from 
cards to disk, and one transfers the transaction file 
from cards to disk. The OCL statements for the 
RPG I! compiler are in a procedure called RPG. A 
CALL statement, therefore, is used to instruct the 
system to read the procedure each time the compiler 
is run. The procedure is located on the F1 simulation 
area. 


@) In each of these job steps, the RPG 11 compiler is 
executed and creates a program with the name 
RPGOBJ. This program is placed in the object library 
on F1. 


In each of these job steps, a disk file is created. The 
names that identify the files on disk are: 


Customer file CUST 
Inventory file INV 
Transaction file TRANS 


The date for all files is 10/20/76. 


The cards containing the records to be transferred 
to disk are being read from the same device as the 
OCL statements. In each case, the cards follow the 
OCL statements that load the program. 


To help identify each job step, a unique name has 
been placed in each of the LOAD statements. This 
name follows the // in the LOAD statement. 


/& statements are used as a precautionary measure 
in case the /* statements had not been placed after 
the source and data cards. 


The /. statement ends job mode and acts as a delimiter 
between jobs. 


The second job uses files created in the first job. 
The first job step compiles a program. The second 
job step executes the program compiled in the first 
job step. The third job step sorts a data file. 


The JOB statement places the system back in job 
mode. The name assigned to this job is INVENTORY. 
Spooling must not be active. The job must be sub- 
mitted in partition 1. There must be 32K of main 
storage available in partition 1 to execute the job. 


The RPG !I compiler is called to compile a program 
designed to update the inventory file. The program 
is placed in the object library on F1. 


This job step loads the program compiled in step 10 
and updates the inventory file. This program can also 
print the transaction file records. The printer file is 
conditioned by external indicator 1. The SWITCH 
statement sets external indicator 1 on, which prevents 
the printing of the records. 


The last job step sorts the newly updated inventory 
file and writes the sorted file back to the same area 


on disk. 


A /. statement ends job mode. 
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Figure 2-4 (Part 1 of 2). Job Stream Example 
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Figure 2-4 (Part 2 of 2). Job Stream Example 
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MULTIPROGRAMMING 


One of the prime measures of a system's efficiency is the 
throughput; that is, the amount of work handled in a 
certain period of time. CPU Processing time and its usage 
are major factors that influence system throughput. 
Multiprogramming, the concurrent execution of more than 
one program, provides efficient use of the CPU time by 
allowing programs to share the CPU facilities, thus reducing 
the time the system is in an unproductive wait state. 


With multiprogramming, control is transferred from one 
task (for example, a user Program or a system function such 
as spool) to another whenever the executing task must 
await completion of an input or output operation. For 
example, when a program requests a print operation but 
the printer is still busy with a previous request, control is 
transferred to another program. Similarly, when a program 
requests a record to be read, it must wait until reading has 
been completed before it can process the data. During the 
wait, control is transferred to another task. Control is also 
transferred when a system message occurs. Since most 
Programs wait a significant amount of time for 1/0 com- 
pletion, sharing the system facilities reduces unproductive 
wait time. 


With multiprogramming, a disk file may be shared by two 
Or more programs executing concurrently, see Figure 2-1 
under Compatible Access Methods for File Sharing. This 
enables programs of various functions to use the same disk 
file without being concerned about job scheduling. When 
a particular program requires exclusive use of a disk file, 
SHARE-NO may be specified on the FILE statement. 


Three program partitions are supported by 5704-SC2: 


Supervisor Area 


Partition 1 


Partition 2 





Partition 3 


File Share Area 
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Each partition can contain a separate program, thus allow- 
ing concurrent execution of up to three Programs. Each 
Program is logically independent, but shares the CPU 
facilities with the other Programs. When CCP is executing 
in a partition, that Partition can have up to 15 tasks execut- 
ing. For sizes of partitions, see Program and Partition 

Sizes under Program Facili ties, 


The supervisor controls priority for CPU Processing. When 
Spool is active, it is assigned the highest priority, with 
Partition 3 second Priority, partition 2 third Priority, and 
Partition 1 the lowest priority. This priority sequence is 
set at IPL time but may be changed via a PTY command. 
The PTY command enables a different priority order to be 
assigned (such as P2, P1, SP, P3), or one or more of the task 
can be assigned equal Priority (such as SP = P3,P2,P1). A 
request for equal priorities causes the Priority of the speci- 
fied tasks to be cycled each time the system wait task gets 
control. For example, when the request is P1 = P2 = P3, 
the cycle would be P3, P2, P1, P2, P71, P3, P71, P3, P2, etc. 
A request for equal priorities does not guarantee exactly 
equal priorities since Process bound programs will not 
relinquish control to the system wait task very frequently, 
but it could have an equalizing effect over a period of 

time. If one of the Partitions contains the communications 
control program (CCP), it cannot be given equal priority to 
another task. 


When an interrupt occurs, the supervisor gains control, 
Processes the interrupt, and gives control to the highest 
Priority task that is ready to gain control. Control is given 
up by the high priority task when it encounters a condition 
that prevents further Processing. Control is taken away 
from a low priority task at the completion of the event 

for which the high priority task is waiting. 


Operating in a Multiprogramming Environment 


A job or job step can be executed in any partition. The 
operator loads a program into a partition by pressing the 
PF12 key on the keyboard. This moves the cursor on the 
CRT to the EJ (end of job) message for a partition. When 
the cursor is positioned for the desired partition, the ENTER 
key on the keyboard is pressed. 


Whenever the EJ message for a partition is responded to, 
OCL statements are read from the system input device 
assigned to that partition. 


When the system is operating in step mode without spool- 
ing support, the system input device assigned to a partition 
is available for use by any partition after the OCL state- 
ments for the current program have been processed. Some 
programs have input following the OCL and require dedica- 
tion of that system input device while processing. In this 
case, the input device is not available until it is released 

by the program. The following points summarize step 
mode operation: 


@ All partitions can share the same system input device; 
however, only one partition can receive OCL statements 
and data from the device at any one time. 


@ Input and output devices required by the programs that 
are executing must be available. Only the simulation 
areas, main data areas, and the CRT/keyboard (used as 
the system input device) can be shared, so careful 
scheduling of jobs is important. 


@ The system input device assigned to a partition is avail- 
able for use by any partition once the current program 
has released it. 


When the system is operating in job mode without spooling 
support, the following points must be considered: 


@ OCL statements for all partitions must be entered from 
separate system input devices (one for partition 1, one 
for partition 2, and one for partition 3), unless the 
system input device is the CRT/keyboard. 


@ Input and output devices required by the programs must 
be available. Only the simulation areas, main data areas, 
and the CRT/keyboard (used as the system input 
device) can be shared by the partitions. Therefore, 
careful scheduling of jobs is important. The following 
chart shows what devices can be shared: 


Shared by 
All Partitions 


seer} 
—————— 


Simulation Area 


Device 





Main Data Area 
3410/3411 Tape 
CRT/Keyboard 





3741 Data Station/ 
Programmable Work Station 


'The device may be shared; however, there are restrictions 
on disk files that must be considered. 
There are three interfaces to the CRT/Keyboard: system 
input device, data management, and system log device. 
The CRT/Keyboard is shared between partitions when 
the system log device and system input device interfaces 
are used. The CRT/keyboard is unavailable as the 
system input device only when it is being used by data 
management. Otherwise, it is available to any partition 
requesting input from the system input device. 





@ The system input device assigned to a partition, except 
for the CRT/keyboard, remains assigned to that parti- 
tion for the duration of the job, even if the job step 
that is executing does not use the system input device. 
(See System Input Device \ater in this chapter.) 


When the system is operating with spool support, job mode 
is required. Spooling schedules the jobs to be executed 

in each partition according to the priority assigned to the 
various jobs and produces the output from the jobs on a 
priority basis. The priority of a job on the input queue 

or the priority of the output of a job step can be changed 
through use of the CHANGE command. 
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When the system is operating in a spooled environment, 
the following considerations should be made: 


@ The operator may schedule jobs for execution in all 
Partitions from the same system input device by supply- 
ing the PARTITION parameter on the JOB OCL state- 
ment. Once a job has been placed on the spool reader 
queue, its partition assignment can be changed through 


use of the CHANGE partition command. (See Part 1 for 


a description of the JOB statement.) 


@ The spooled reader, punch, and printer devices may be 
shared by all partitions when using spooling. 


Operator Control Commands for Mul tiprogramming 


The following operator control commands (OCC) provide 
the user a means to contro! multiprogramming. (Appendix 
C contains the format of the commands; for a complete 
description of the commands, see /BM System/3 Model 15 
Operator's Guide, GC21-5075.) 


@ CANCEL 


@ CHANGE 
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The CANCEL command terminates the 
job executing in the specified partition. 

If the canceled program is a job step ina 
job or a part of a chained procedure, all 
remaining steps in the job or procedure 
are also canceled. Processing can continue 
with the next job. 


One function of the CHANGE command 
is to alter the partition assignment of the 
job on the spool reader queue when spool 


is active. This is done via the PTN operand. 


Another function of CHANGE is to alter 
the main storage requirements of a job on 
the spool reader queue (spool must be 
active). The CORE parameter plus a size 
specifies the minimum amount of main 
storage required to execute the largest step 
in the job. It does not assign main storage 
to the partition; the SET command is used 
for this purpose. 


The PTY operand of the CHANGE com- 
mand allows the priority of a job ona 
spool queue to be altered. (Spool! must be 
active.) The priority of a job determines 
when it is executed and when its output 

is printed or punched. 


@ DISPLAY 


@ DUMP 


@ HALT 


The DISPLAY STATUS command formats 
the CRT screen with the status of the 
system. Each page (display) is the status of 
a partition, the system, or the volume IDs. 
An ENTER response to each Page causes 
the next partition, system status, or volume 
IDs to be displayed in sequence: system 
Status, P1, P2, P3, volume IDs, system 
status, P1, etc. The operator may request 
a particular page by placing the Partition 
number, an S, or an N under the cursor or 
by specifying the partition or N on the 
DISPLAY STATUS command. 


The system display includes the maximum 
Program size (maximum size of a program 
that can be executed) and the size of the 
file share area. The partition display 
includes the location of the simulation 
areas assigned to that partition. 


The volume ID display includes the names 
of all the disk areas (main data areas and 
simulation areas). 


The DISPLAY command also allows the 
system history area (HISTORY) and the 
contents of the spooling queues (RDRQ, 
PRTQ, or PCHQ) to be formatted on the 
CRT screen. 


The DUMP command enables the storage 
allocated to a partition to be dumped. 
DUMP can also provide a dump of the 
total storage area of the system. 


The HALT command temporarily suspends 
processing in a specified partition after the 
current job step is complete and whenever 
a system message (except an informational 
message) is issued in that partition. The 
HALT command can also cause an informa- 
tional message when unprinted entries in 
the system history area are about to be 
overlaid by additional entries. The HALT 
command overrides the nohalt mode 
established at IPL or by aNOHALT OCL 
statement. Processing resumes when the 
system message is responded to. 


@® NOHALT 


° PTY 


@ READER 


When a NOHALT command for a partition @ SET 
is specified, the partition does not stop 

when an end of job or end of step occurs. 

NOHALT changes the processing mode 

for the partition from halt to nohalt. It 

overrides the halt mode established by a 

HALT command; however, it does not 


override a HALT OCL statement. 


The PTY command alters the priority order 
of spooling and partitions 1, 2, and 3 in 
the system control program. At IPL, the 
priority of these tasks is spool, P3, P2, P1, 
with spool (if active) having the highest 
priority. The priority of these tasks deter- 
mines the order in which they receive the 
services of the system control program. 
The PTY command also enables one or 
more of these tasks to have equal priority. 
Changing the priority may increase the 
performance of one task; however, it may 
be at the expense of another task. 


The READER command changes the 
system input device assigned to a partition. 
When this command is entered, the speci- 
fied partition must be at end of job or 
end-of-job step, and must not have a system 
input device dedicated to it. The assigned 
device remains as the system input device 
until changed by another READER 
command or READER OCL statement, 

or until an IPL is performed. The system 
input device can be changed in a spooled 
job stream; however, jobs are scheduled 
for execution from the reader queue only 
when the system input device is also the 
spooled reader. 


The SET command overrides the partition 
and file share area sizes set during system 
generation or set by a previous SET 
command. 


Supervisor 


Partition 1 


File Share Area 


Before a SET command 


Partition 2 







Partition 3 


File Share Area 





After a SET command that 
changed the size of partition 1. 
The unused area could be 
assigned to either partition 2 

or 3 with another SET command. 


When the SET command is entered to 
change a partition size, CAN NOT ACCEPT 
is displayed if the specified partition is 
not at end of job or end-of-job step. Parti- 
tions 2 and 3 both must be at EJ before 
the size of partition 3 can be changed. If 
the specified partition is at end-of-job step 
but not end of job, the partition size may 
not be decreased to less than: 
— The size specified in the CORE param- 
eter of the JOB OCL statement. 
— The size of the partition at the start of 
the job, if the CORE parameter is not 
specified in the JOB OCL statement. 
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@ START 


The minimum partition size for Partition 1 
is 8K. Partitions 2 and 3 can be set at zero 
to run the system with only one Partition 
active (dedicated system operation). When 
Partitions 2 and/or 3 are set to zero, the 
CANCEL and DUMP commands are not 
accepted for partitions 2 and/or 3. When 
a partition is set to zero during system 
generation, the CT E/ message will not be 
displayed for that partition. Both Pparti- 
tions can be reactivated with another SET 
command specifying 8K or more. The 
maximum partition size that can be speci- 
fied is the system storage size minus the 
size of the supervisor (if partitions 2 and 3 
are set to O) and the size of the file share 
area (a minimum of 2K). tn all other cases, 
the maximum partition size is the system 
main storage size minus the supervisor size, 
the other two partition sizes, and the file 
share area size. When the size of one 
partition is decreased to increase the other, 
the decrease operation must be done first. 


When the SET command is entered to 
change the size of the file share area, all 
Partitions must be at end of job. The 
minimum file share area size is 2K; larger 
sizes are specified in increments of 2K. 


A START command with a specified Parti- 
tion indicates execution can be started in a 
partition in which execution was previously 
stopped by a STOP command. This com- 
mand can be entered at any time and takes 
effect immediately. 


@ STOP 


The STOP command with a Partition speci- 
fied indicates to stop execution in that 
partition. This command cannot be entered 
for a partition in which the communica- 
tions control program (CCP) is executing 
or when a partition is using certain system 
resources such as system interlocks. This 
command takes effect immediately. A 
START command is required to resume 
program execution after it has been 
stopped. 


Note: This command can also cause the 
spool writers to stop execution if they are 
printing or punching DEFER-NO data 
from the job step when it is stopped. They 
will resume printing or punching when 
execution has been started again in the 
Partition. 


The STOP SPOOL command with a parti- 
tion specified indicates the partition in 
which spooling is to be terminated. This 
command can be entered anytime follow- 
ing initiation of spooling at IPL; however, 
it does not take effect until the end of the 
next job that releases the system input 
device. If this command is entered at end 
of job or when the system input device is 
released, it takes effect immediately. A 
START SPOOL command is required to 
reactivate spool support for that partition. 


Multiple Partition Support 


The three-partition support provides the capability of 
A START SPOOL command with a speci- operating in the following typical environments: 
fied partition indicates the partition in 
which spooling is to be initiated. The 


START SPOOL command specifying a 


® CCP —batch—limited application development 


partition may only be entered after the @ CCP—batch—batch 
spooling function has been activated at 

IPL. START is used to reactivate spooling @ CCP—MRJE—batch 
for a partition after the STOP command. 

If entered at the end of a job when the ® Batch—batch—batch 


system input device has been released, 
spooling for the partition begins immedi- 
ately. If entered during the execution of 
a job, it takes effect at the end of the next 
job that releases the system input device. 
Once spooling is activated by the START 
command, it remains active until a STOP 
command is entered. 


Batch—batch—limited application development 


Batch processing is the execution of programs such that 
each program is completed before the next program is 
initiated. Limited application development refers to the 
compilation and debugging of Programs in a batch environ- 
ment. 
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Multiprogramming Considerations and Restrictions 
Library Maintenance Program 


The library maintenance program can execute in one parti- 
tion while any other nondedicated program, including 
library maintenance, is executing in another partition. 

All of the library maintenance functions can be performed 
in a multiprogramming environment except copying or 
renaming system entries on the simulation area from which 
the system is loaded. These functions require the other 
partitions to be inactive. 


Restrictions exist on the functions that can be performed 
by the library maintenance program if a simulation area is 
specified that is already in use by another partition. These 
restrictions are: 


@ Any delete or rename function (LIBRARY-O, 
LIBRARY-R, or LIBRARY-ALL) or allocate function 
that specifies the simulation area from which a program 
executing in another partition is loaded, will not be 
performed. 


@ Based upon the option selected at system generation 
time or during execution of the configuration record 
program, the following support applies for the copy 
function (LIBRARY-O, LIBRARY-R, LIBRARY-ALL, 
or file-to-library): 


For catalog to no program packs, any copy function that 
specifies a simulation area from which a program execut- 
ing in another partition is loaded, will not be performed. 


For catalog to CCP program pack, any copy function 
that specifies a simulation area which is currently in use 
as a CCP program pack, will be performed. If that simu- 
lation area is also in use as a program pack for the third 
partition, the copy function will still be performed. 
However, if the program executing in the third partition 
is loaded from a different simulation area, the copy 
function will not be performed. 


For catalog to all program packs, any copy function 
that specifies a simulation area from which a program 
executing in another partition is loaded (including the 
CCP program pack), will be performed. 


@ Any copy function that specifies a simulation area that 
is also being used by a system service program in another 
partition for library purposes will not be performed 
unless both the copy function and the system service 
program are performing read only functions. 


@ {fa library function can change the extents of the 
library (that is, the allocate function, LIBRARY-O, 
LIBRARY-R, or LIBRARY-ALL copy function, file- 
to-library function, or LIBRARY-O, NAME-ALL, 
RETAIN-T delete function), a system service program 
in another partition cannot use that same area, and files 
cannot be allocated in that area until the library function 
is completed. 


@ Any delete, rename, or modify function that specifies a 
simulation area that is also being used by a system 
service program in another partition for library purposes 
will not be performed. 


@ Any function that specifies a simulation area that is 
dedicated to another partition for use by a system service 
program or for an offline multivolume file or a deferred 
mount file will not be performed. 


Any simulation area that is not in use by a system service 
program in another partition or has a use not previously 
described as a restriction can be used by the library mainte- 
nance program. 


File Share 


Program Number 5704-SC2 allows sharing of a disk data 
file between two or more partitions, tasks, or access of a 
file in a single program whenever it is logically possible. 
Disk data management monitors file usage at a block level 
and allows access for disk writes or potential disk writes to 
any portion of the file not in use by another program for 
the same purpose. /nput only operations are allowed with- 
out regard to block usage by another program. Since 
potential write operations are block protected when file 
sharing, the greater the block size specified, the greater 

the portion of the file that cannot be shared at any given 
period with another potential write program. 


A potential disk write occurs during input/update type 
operations. When the input biock is read, it is protected 
for a possible update operation. The block is released on an 
update or the next input request. During sequential and 
consecutive processing, the block is released when all 
records in the block are processed. During random 
processing, the block is released after every record. 
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Add blocks have considerations similar to input/update 
type operations. Random adds are protected during the 
actual add and released so another random add program 
may access that record. Sequential and consecutive adds 
are protected during the entire add run and are not avail- 
able for processing until that program has been completed. 


A user may gain exclusive use of a file by specifying 
SHARE-NO in the FILE statement. SHARE-NO excludes 
other programs from using a file including input only access 
methods. When files are not shared between partitions or 
tasks, SHARE-NO should be used to decrease the disk 
Processing time, especially if large amounts of random 

adds are to be performed. 


When two or more Programs are sharing a file, a lockout 
condition can occur if one of the programs fails to release 
a block of records and a second Program attempts to access 
a record within the same block. A lockout can also occur 
when a program is executed in such a manner that another 
Program cannot gain control. 


Example A: 
1. Program X begins and reads a record to update from 
file A. 


2. Program Y begins and reads a record from file B. 


3. Program X attempts to read the same part of file B 
without updating or releasing file A. It must now 
wait for program Y to release its block. 


4, Program Y attempts to read a Portion of file A in the 
same block as program X without releasing the file 
B block. Program Y is now waiting on program X 
and both programs are locked out. 


Example B: 


1. Program Y performs updates until at some condition 
it issues a halt after inputing a record, 


2. Program X attempts to read and update a record 


within the same block owned by program Y. Program 


X will wait for program Y to release the block. 
Once the halt in program Y is responded to, process- 
ing will continue. 
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Example C: 


1. Program Y is reading and updating records randomly 
from file A. Program Y is coded to loop on a chain 
operation when the record is not found. It is alsoa 
high priority program level, 


2. Program X is randomly adding and updating records. 
It is lower in Priority than program Y. 


3. Program Y chains for a record higher than any 
previous records in the file. It loops on the chain 
operation waiting for program X to add the record. 
Since data management detects the high key request, 
no disk operations occur and, therefore, control is 
not passed to program X, so no further processing is 
done and the partition must be canceled. 


Example D: 


1, Filename A and filename B define the same physical 
file in program Y. 


2. Program Y uses filename A to perform updates. The 
records within the I/O block of filename A are pro- 
tected until released by program Y. 


3. Program Y then uses filename B in an attempt to 
read and update a record within the same I/O block 
used by filename A. However, program Y cannot use 
filename B until! the !/O block used by filename A 
is released. 


Because of these considerations, programs that will be 
sharing files should not be coded to do consecutive reads 
from different disk files without doing intervening writes. 
Programs that will potentially hold up usage of a block of 
records because of length calculations or halts should 
release the block before the action and reread the block 
for any update. When this type of coding cannot be avoid- 
ed, the user must be aware of the possible lockout condi- 
tions and schedule jobs accordingly. 
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During index add processing, if a program executing in one 

partition is sharing a file with an add program executing in 

another partition, the key sort is deferred until the last 

user of the file goes to end of job. If the last user of the 

file does not have a $INDEX45 or $SINDEX40 FILE state- 

ment to allocate space for the work file (which is used to 

sort the keys), the system will attempt to automatically 

allocate the space. However, the system may not be able 

to automatically allocate the space. Therefore, if the work 

file is required, if there is a possibility that the key sort 

will be deferred, and if sufficient space will not be avail- 

able for the system to automatically allocate the work file, 

then the user should include a $INDEX45 or $INDEX40 

FILE statement for the sharing program even though it 

may not be an add program. 


During random adds to an indexed file, it is possible for 
two programs to attempt to add the same record. If both 
programs do so together, the first program will add the 
record and the second will get an ATTEMPT TO ADD 
DUPLICATE RECORD message. 
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Programs coded to perform two random updates to the 
same disk file without an intervening read will receive disk 
error messages. Once a record update is issued, an input 
operation must be performed before another update is 
attempted. 


When adding records to a file, the availability of the added 
records to another program depends on the access method 
adding the record and the access method retrieving the 
record. The most permissive access method is indexed 
random add. tn order to retrieve records added by another 
Partition, random add access must be used by the retrieving 
program even though no actual adds will be performed by 
the program. The following chart indicates record 
availability. 


Sharing Access to Added Records 


Record 
Availability 
To Access: 














Records 
Added by 
Access: 


ISA/ISUA 


IA/IRA/IRUA 


@ Added records immediately available 


Q) Record added prior to open available 

@) Added records available after close of adding program 

@) Added records available after key sort at end of job or CCP close 
G) Access method not available until add access has completed 

CA Consecutive add 

ISA Indexed sequential add or input add 

ISUA Indexed sequential update add 


IRA Indexed random input add 
{RUA Indexed random input update add 


System Facilities 


2-59 


Multiprogramming Examples 


The following sample job streams assume four Jobs are to 
be executed (Figure 2-4). The system configuration con- 
sists of a Processing unit with 256K, 5424 MFCU, 1403 
printer, 3340 disk drives, anda CRT/keyboard. The 
system input devices are the 5424 MFCU for partition 1 
and the CRT/keyboard for Partitions 2 and 3. Before exe- 
cuting these jobs, the operator must decide whether to 
execute them in job mode or step mode. If job mode is 
chosen, spool or nonspool must be chosen. When the 
system is operating in step mode or in job mode without 
spool, all 1/O devices used by the job steps must be avail- 


able. Careful planning and scheduling of job steps is neces- 


sary to make maximum use of multiprogramming and to 
avoid 1/O device conflicts between Partitions. 


Assuming a nonspooled environment, jobs 1, 3, and 4 
(which use the MFCU for reading and punching cards) are 
scheduled in the same Partition to avoid conflict with the 
MFCU. Since job 3 does not require the printer, it is 
scheduled as the first job in partition 1 to avoid a conflict 
with job 2 in partition 2. Job 1 is scheduled as the second 
job in partition 1: however, to avoid a conflict with the 
printer, step 2 of job 1 cannot be started until job 2 is 
finished executing. Any subsequent jobs scheduled in 
Partition 2 would have to avoid using the printer or MFCU 
because job 4 uses both these devices. Partition 3 is not 
used in this example. 
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The OCL statements required for partition 1 would be as 
follows: 


// DATE 10/20/76 

//SOB3 JOB SPOOL-NO 
/IHISTORY LOAD PHIST,F1 
// FILE... 

// RUN 

//PUNCH LOAD PHORD,F1 
AOEICE o, 

// RUN 

/, 

//JOB1 JOB SPOOL-NO 
//UPDATE LOAD UPDATE,F1 
// FILE... 

// RUN 


// PAUSE START NEXT STEP OF JOB1 AFTER JOB2 EJ 


/IWRITE LOAD ORDRS,F1 
// FILE... 

// RUN 

/. 

//SOB4 JOB SPOOL-NO 
// LOAD $RPG,F1 

// FILE... 

// FILE... 

// RUN 

source statements 

/* 

// LOAD RPGOBJ, F1 
// FILE... 

// RUN 

/. 


The OCL statements required for Partition 2 would be as 
follows: 


//JOB2 JOB SPOOL-NO 
/ICHECKS LOAD PAYROL,F1 
// FILE... 

// RUN 

/, 


If the same jobs were run in job mode with spooling active, 
all jobs could be read by one input device (see Figure 2-5). 
Assume that the system date was entered at IPL. After 
IPL, the following operator control commands would be 
entered (see Appendix C for a summary of operator control 
commands): 


START RDR (Spooling begins reading the input job 
stream and placing jobs in an area of the spool file 
called the reader queue.) 


START PRT 


Jobs would be executed in the partitions as follows: 


JOB1 Partition 1, as specified by the PARTITION 
parameter in the JOB OCL statement 

JOB2 Partition 2, as specified by the PARTITION 
parameter in the JOB OCL statement 

JOB3 Defaults to partition 1 because no PARTITION 

JOB4 parameter is specified in the JOB OCL state- 


ment 


Since spooling schedules the use of the spooled 1/O devices, 


START PCH (Can be entered after the spool reader has 
terminated.) 


scheduling of jobs in the partitions is made easier. Also, 
more efficient use of the multiprogramming capability of 
the system is realized when operating in a spooled environ- 


The following OCL statements would be placed in the 
spooled reader: 


//JOB1 JOB PARTITION-1, PRIORITY-3 
//UPDATE LOAD UPDATE,F1 
// FILE... 

// RUN 

//WRITE LOAD ORDERS,F1 
// FILE... 

// RUN 

/. 

//JOB2 JOB PARTITION-2,CORE-20,PRIORITY-4 
//CHECKS LOAD PAYROL,F1 
// FILE... 

// RUN 

/, 

//JOB2 JOB PRIORITY-2 
//HISTORY LOAD PHIST,F1 
// FILE... 

// RUN 

//PUNCH LOAD PHORD,F1 
// FILE... 

// RUN 

/. 

//JOB4 JOB CORE-16 

// LOAD $RPG,F1 

// FILE... 

// FILE... 

// RUN 

source statements 

/* 

// LOAD RPGOBJ,F1 

// FALE... 

// RUN 

a 

/. 


ment. 
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Step: 1 Update inventory file 
® Read cards 
@ Write disk records 
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Figure 2-5, Scheduling Jobs in a Multiprogramming Environment 
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DATE SUPPORT 


The System/3 Model 15 uses four date fields: a system 
date and three partition dates (one for each partition). 

The dates can be changed by a DATE statement or a DATE 
command. 


System Date 


The system date is used for time stamping certain messages 
by the time-of-day macro instructions, the RPG I] TIME 
operation code, and by the COBOL and FORTRAN CFTOD 
modules. The system date is set at IPL when the operator 
responds to the DATE prompt or when the operator enters 
a DATE command. It is also set when an OCL statement 

is entered at IPL before any JOB, CALL, or LOAD state- 
ment. The system date can be changed by the operator 
only with the DATE command and only when all partitions 
are at end of job. 


If the interval timer is specified during system generation, 
the system date is changed at midnight—when the timer 
changes from 23.59.59 to 00.00.00. 


Partition Date 


There is a date field for each partition. The partition date 
is used by programs running in that partition, and it may 
be different from the system date or from the date in 
another partition. The partition date is used by the RPG II 
UDATE field and when creating files. 


The partition dates are established initially from the system 
date; whenever the system date is entered, the three parti- 
tion dates are also set. The partition date is always restored 
to the system date at the start of the next job (after EJ). 


The partition date can be changed by use of the DATE 
statement, as follows: 


® Job Date: If the DATE statement is entered after the 
JOB statement and before a LOAD statement, that date 
will remain in effect for the remainder of that job. It is 
restored to the current system date for the next job. 
It is not necessary that the DATE statement precede 
the first step; it may be placed prior to any step’s LOAD 
statement and will be in effect from that step to the end 
of that job. 


@ Step Date: If the DATE statement is entered after a 
LOAD or CALL statement and before the RUN state- 
ment for that step (that is, if the DATE statement is 
entered within a step), the partition date is changed for 
the duration of that step. It is restored to the current 
system date for the next step. 


If the interval timer is supported, and if the system date is 
updated at midnight, then, when the partition date is 
restored after EJ or ES, it may be different from when the 
step was started. However, the partition date is changed 
by the system only after ES or EJ, never during execution 
of a step. 


Use of the DATE statement prior to a LOAD statement 
ensures that the same date is used for each step in the job. 
Also, once a DATE statement is entered in this manner, 

a subsequent DATE statement may be entered for the 
job, but only if it occurs prior to a LOAD statement. 


INTERVAL TIMER 


The interval timer provides time-of-day (TOD) support, 
which maintains the time of day and system date. This 
information is used to do the time stamping for jobs and 

job steps and for jobs executed using checkpoint/restart. 
The time of day is given in hours (OO—23), minutes (00—59), 
and seconds (O00—59). 


For time stamping jobs and job steps, the system date and 
time of day (mmddyy or ddmmyy and hh.mm.ss) are used 
to time stamp the CTEJ and CTES messages. The system 
date and time of day are saved when the job or job step 
starts, and the time of day is saved when the job or job 
step ends. The start time of a job or job step is: 


@ In hait mode, the response to the EJ or ES message. 

@ In nohalt mode, after the EJ or ES message is logged in 
the system history area, but before an attempt is made 
by the system to read the first record of the next job 


or job step. 


If time of day is not specified during system generation, 
neither the date nor the time is included in the messages. 
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Time stamping for checkpoint/restart is as follows: 


®@ When a checkpoint request is received and accepted, 
the system date and time are saved. This information 
is put into the CC HY Message that is given at a check- 
point. 


@ When a restart request is received, the system date and 
time are saved. This information is then put into the 
CC Ht message that is given at a restart. 


If time of day support is not specified during system gen- 
eration, the date and time are not included in the check- 
Point/restart messages. 


The system date is automatically incremented to the next 
day at midnight (when the time changes from 23.59.59 to 
00.00.00). The Partition date, used as the Creation date 
for the disk and tape files, is not updated at midnight until 
the start of the next job or job step. The Partition date is 
changed by the system only after ES or EJ occurs, never 
during the execution of a Job step. Asa result, files created 
in two adjacent job steps could have different dates. Also, 
as a result, the CCP date will not change during one execu- 
tion, even though it May stay up for over a day. 


Full interval timer Support provides time of day support 
and also allows the user to set time intervals and to deter- 
mine elapsed time by using system control programming 
macro instructions. The five macros—$DATE, $TIOB, 
$SIT, $TOD, and $RIT—are available and provide the 
following functions: 


© Retrieve the system date and time of day. 


© Set the interval timer to Cause an interrupt after a speci- 
fied amount of elapsed time. 


® Choose a format for specifying the time intervals. 

© Specify the type of intervals to be timed. 

@ Return the remaining amount of time in an interval. 
® Cancel an unexpired time interval. 

For information on these macro instructions, see /BM 


System/3 Model 15 System Control Programming Macros 
Reference Manual, GC21 -7608. 
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SYSTEM INPUT DEVICE 


During system generation, a system input device is assigned 
to each partition. When Program loading is initiated in a 
Partition, OCL statements are read from the system input 
device assigned to that Partition. (The system input device 
is often referred to as sysin.) 


The following devices can be assigned as the system input 
device: 5424 MFCU, 2560 MFCM, 1442 Card Read Punch, 
2501 Card Reader, CRT/keyboard, or 3741 Data Station/ 
Programmable Work Station. 


When the system is running in step mode, the system input 
device is assigned to a Partition while the OCL statements 
are being processed, unless the system input device is the 
CRT/keyboard. After the OCL statements are processed, 
the system input device may be allocated to another Parti- 
tion. When an error condition occurs during a program and 
a2 or 3 option is taken, the job stream in the system input 
device is read but not Processed until a LOAD, CALL, 
JOB, /&, or /. OCL statement is found. Unless a /. or a /& 
OCL statement is found, the system input device is not 
released. 


Note: Some Programs, such as the RPG I} compiler and 
disk sort, require system input device dedication while 
executing, in which case the system input device remains 
assigned to the partition until those programs release it. 


When the system is running in job mode and spooling is 
inactive, the system input device is assigned to a partition 
for the duration of a job, unless the system input device is 
the CRT/keyboard. Once a JOB OCL statement is pro- 
cessed in a partition, that Partition’s assigned input device 
is assigned to the partition until the job is terminated by 
a/. statement or a3 option is taken to a reader hardware 
error message. 


When the system is running in job mode with spooling 
active, one input device is assigned as the spooled reader 
from which all input can be read for all spooled partitions. 
The spooled reader should be the same device as that 
assigned as a partition’s system input device. 


Job made does not cause the system input device to be 
dedicated when it is the CRT/keyboard. 


When nohalt mode is used with job mode, the system input 
device is not released until halt mode is established and 
end of job occurs. 


The assigned device remains the system input device until 
changed by a READER OCL statement, a READER 
command, or until an IPL is performed. The READER 
OCL statement is read by the current system input device 
and specifies the new system input device. The READER 
command specifies not only the new system input device, 
but also the partition it is assigned to. When the READER 
command is entered, the specified partition must be at end 
of job or end of job step, and, if executing in job mode, 
the partition must have released its current system input 
device. 


The system input device can be changed in a spooled job 
stream; however, jobs are scheduled for execution from 
the reader queue only when the system input device is 
the same as the spooled reader device. 


The system control program support for sysin is used by 
most of the system functions that read input. This includes 
the system service programs and the language translators. 
The user may use sysin via the ACCEPT verb in COBOL or 
a macro statement with the basic assembler. Spooling 
support does not use sysin. 


SYSTEM LOG DEVICE 


The system log device, specified during system generation, 
is used by the system to communicate with the operator 
and to record messages, OCL statements, and OCC 
commands. 


The device specified as the system log device remains in 
effect until a LOG OCL statement alters it; the new system 
log device remains in effect until another LOG statement 
is processed or another IPL is performed. A system log 
device is assigned for each partition; for example, the 1403 
printer may be the log device for partitions 1 and 2, and 
the CRT/keyboard may be the log device for Partition 3. 


In selecting the system log device, the user should consider 
the following points: 


@ System messages (informational and decision type) are 
logged to the CRT independent of the assignment of 
the log device. The only effect of a LOG CONSOLE 
statement is to stop logging to a printer. 


@ System messages, OCL statements, and control state- 
ments are logged directly to the 1403 when the 1403 is 
assigned as the system log device, and print spooling is 
neither active (intercepting print requests) nor using the 
1403 (printing spooled output) and the 1403 is not 
being used by a program in another partition. 


@ System messages and control statements are logged to 
the 3284 when the 3284 is assigned as the system log 
device and is not being used by a program in a partition. 


@ When 1403 printed output is being spooled, spooling is 
active (intercepting print requests for this partition), 
and the system log device has been assigned to the 1403 
printer, all system messages that would normally be 
logged on the 1403 are placed on the spool print queue. 
When the spooled output is printed, the system messages 
are printed along with the job step’s output. 


@ Ail system messages and OCL statements are logged to 
the system history area (SHA) on the system pack. 


Note: The SHA may be printed or copied to a device 
independent file by the system history area display 
program ($HIST), or displayed on the CRT by use of 

the DISPLAY command. See Part 4 for a description 

of $HIST or Appendix C for a summary of the DISPLAY 
command. 


The following information is not logged on the printer 
but is logged in the system history area (SHA): 


@ Responses to ERP (error recovery procedures) messages 
@ Responses to EJ/ES messages 

@ Volume recognition facility messages and responses 

@ Spooling messages and responses 

e occ 

®@ OCC diagnostics 


@ Any ERP message received while a printer ERP message 
is active. 


@ Partition identification on OCL statements and contro! 
statements for system service programs. 


If logging of the above information is required, the log 


device is assigned only to the CRT, and the contents of 
the system history area are periodically printed by $HIST. 
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SYSTEM PRINT DEVICE 


The system print device, specified at system generation, 
is used by various system functions, such as the library 
maintenance program, to print their output. 


The PRINTER statement is used to change the system 
Print device or provide information about printer output 
that has been spooled. 


The PRINTER statement defines the system print device 
for the partition in which the Statement is processed. 
Either the 1403 or 3284 printer can be defined as the sys- 
tem print device; however, spool supports only the 1403. 
The system print device may be changed in a spooled job 
stream; however, if the new device is the 3284, printed 
output for the system print device is not placed on the 
print queue. Spooling of system printed output resumes 
when the system print device is reassigned to the 1403. 
For more information on the PRINTER statement, see 
Part 1, 


SYSTEM PUNCH DEVICE 


The system punch device is used to provide optional output 
from system functions such as the overlay linkage editor 
and output from the library-to-punch function of the 
library maintenance Program. A default system punch 
device may be established for each partition during system 
generation. 


The following devices can be assigned as the system punch 
device: 5424 MFCU, 2560 MFCM, 1442 Card Read Punch, 
or 3741 Data Station/Programmable Work Station. The 
PUNCH statement is used to change the system punch 
device or provide information about punch output that 

has been spooled. 


The system punch device may be changed in a spooled job 
stream; however, if the new system punch device is not the 
spooled punch device, punched output for the system punch 
device is not placed on the punch queue. Spooling of this 
punched output resumes when the system punch device is 
reassigned to the device designated as the spooled punch 
device. 
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SYSTEM HISTORY AREA 


The system history area (SHA) is a space on the system 
pack that contains a log or audit trail of the following 
information: 


® OCL statements logged by the system 
® OCL diagnostics issued 


© Control statements logged by the system for system 
service programs 


® Operator control commands entered 

®@ Diagnostics issued for operator control commands 
®@ System messages issued 

@ Volume recognition facility (VRF) messages 

© Operator responses to system messages 

@ Unit record restart and 3340 restart Messages 

@ Program product messages 

@ Display screen images (optional) 


A system history area is created on the system pack during 
system generation; a size option with a minimum of two 
tracks (48 sectors) is provided. The allocate function of 
the library maintenance program reserves space for the 
system history area when allocating libraries on a pack that 
will be used as a system pack—there is only one system 
history area per simulation area. 


The library maintenance Program is the only means to 
change the size of the system history area (HISTORY 
Parameter of the allocate function) after system generation. 
The minimum size is 2 tracks; the maximum is the number 
of contiguous tracks available on the pack following the 
object library. The following are considerations for deter- 
mining the size of the system history area: 


@ Each record in the area is 40 bytes; this is the length 
of one line on the CRT. 


@ Each operator control command and each OCC diag- 
nostic requires one record. 


@ Each OCL statement and each control statement require 
no more than three records, but generally require only 
one record. 


@ Each message and each message response generally 
require only one record. 


The following can be used to determine the number of 
tracks required: 


Number of Tracks Number of Records 


2 (minimum) 233 
3 377 
4 521 
5 665 
10 1385 
15 2105 
20 2825 


The system history area is a reusable area. When the space 
is filled, the oldest entries are overlaid by the newest 
entries, a process called SHA wraparound. To prevent data 
from being lost, the HALT command with the SHA param- 
eter is used. HALT SHA causes a decision-type message to 
be issued when the SHA wraparound warning point is 
reached, (The SHA wraparound warning point is defined 
as a specific number of tracks that remain in the SHA be- 
fore unprinted entries are overlaid.) The message is not 
issued again until either $HIST or SHACCP has been exe- 
cuted. The HALT SHA, CCP command automatically in- 
vokes $HACCP when the SHA wraparound warning point 
is reached. The HALT SHA command remains in effect 
until a NOHALT SHA command is entered, an IPL is per- 
formed, or the SHA is full message is responded to without 
subsequently executing $HIST or $HACCP. 


Note: The system history area copy program ($HACCP) 
can be used to copy the current portion of the SHA toa 
disk file. This program can be automatically invoked if 
the communications control program (CCP) is executing. 
For information about the system history area copy pro- 
gram, see the /BM System/3 Communications Control 
Program System Reference Manual, GC21-7620. 


The library maintenance program ($MAINT) is used to 
change the size of the system history area. The SHA wrap- 
around warning point in the configuration record is reduced 
during IPL if it exceeds one-half the new size of the SHA. 
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information in the system history area can also be lost 
when the library maintenance program is used to reor- 
ganize an object library (unless compress in place is used), 
or when the program allocates or changes the size of a 
source library. Therefore, it is advisable to print the 
contents of the system history area on a regular basis—as 
the last step of a job, for instance. 


The system history area can be printed or written to a 
device independent data management file by the system 
history area display program ($HIST}, written to a disk file 
by the system history area copy program ($HACCP) under 
CCP, or displayed on the CRT by use of the DISPLAY 
command, A copy of the system history area can aid in 
troubleshooting problems and can provide an audit trail of 
system activity. See Part 4 for a description of $HIST 

and Appendix C for a summary of the DISPLAY command. 


SPOOLING 


Spooling support for Model 15 is an optional facility of 
the system control program for handling unit-record input 
and output at disk I/O (input/output) speed, thereby 
increasing total system throughput. Spooling support must 
be specified during system generation; various options 
enable spool to be tailored to the user environment. 


To handle a system's unit-record |/O without being depen- 
dent on I/O device speeds, spooling support builds a file 
on one of the main data areas and uses this file for inter- 
mediate storage. This area is logically divided into queues 
for reader input and print and punch output data. 


As job streams (including OCL statements, programs, and 
data) for the individual partitions are read, the spool reader 
routine stores each job on the reader queue. After a job 
has been completely read and stored in the reader queue, 

it is ready to be transferred to the appropriate partition 

(1, 2, or 3) for execution. 


When the operator initiates execution in a partition by 
responding to the EJ message, spooling support presents all 
the records for a job to the partition as though they were 
just read from the physical input device. When all job 
steps for a job have been executed, the spooling support 
removes the job from the reader queue. 
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As a job executes, its printed and/or punched Output is 
stored temporarily in the spool file on print and punch 
queues. The output may be printed or punched later while 
other jobs are executing, thus allowing a job to execute 
without having to wait for the unit-record devices. 


Whenever a spooled reader, card punch, or printer becomes 
inoperative, the system continues processing jobs already 
on the reader queue. When the 1/0 unit becomes Operative 
again, reading, punching, or printing continues without a 
loss of output or Processing time. 


With spooling, jobs can be executed in all three partitions 

without the need for separate unit-record devices for each 
partition. For example, one card reader can be the system 
input device for all three Partitions; three card readers are 

not necessary. Also, one printer can service all three parti- 
tions without device contention. 


Execution of the spooling functions is controlled with 
operator control commands and operation control language. 
For further information on spool support, see /BM System/3 
Model 15 User's Guide to Spooling, GC21-7632. 


CHECKPOINT/RESTART 


Checkpoint is a means of recording the status of a user 
program at desired intervals. Restart is a means of resuming 
the execution of the Program from the tast checkpoint 
rather than from the beginning, when Processing is termi- 
nated for any reason (with the exception of a controlled 
cancel) before the normal end of job, such as when a power 
failure occurs and causes an interruption. 


When checkpoint/restart is used, the following program- 
ming considerations should be kept in mind: 


Checkpoint/restart enables the user to restart a check- 
pointed program from the last checkpoint taken pro- 
vided no intervening program executions have taken 
place, 


The check point/restart Support was selected during 
system generation. 


Checkpoint requests are accepted only in partition 1. 
Checkpointed Programs must be restarted in partition 1. 
If partitions 2 or 3 are used to execute a checkpoint 
Program, the checkpoint requests are ignored, 
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@ Only programs 48K or less may be checkpointed, A 
diagnostic is issued when attempting to checkpoint a 
program larger than 48K. 


®@ Programs using file sharing or external buffers cannot 
be checkpointed. 


© ALOG statement may be required to reestablish the 
Partition’s logging device. 


@ If any I/O requests from Partition 1 are being handled 
by spooling, checkpoint requests are ignored; therefore, 
spooling should be stopped in Partition 1 usinga STOP 
command. See Appendix C for a summary of the STOP 
command, 


@ Any I/O devices being used by spooling that will be used 
by the checkpoint program must be released by operator 
control commands. (See Appendix C for a summary of 
Operator control commands.) 


© If CCP is active in the partition being checkpointed, 
the checkpoint request is ignored. 


®@ if the interval timer is being used to time intervals for 
the partition being checkpointed, the checkpoint request 
is ignored. 


@ APRINTER statement may be required to establish the 
3284 as the printer. Multifile tape volumes that have 
been prepositioned and left there by tape allocate 
(SEQNUM-X parameter on FILE statement) will not 
be checkpointed or repositioned during restart, 


@ A READER and/or PUNCH statement(s) may be re- 
quired to reestablish the spooled reader and punch 
devices. 


® Compilers and the overlay linkage editor should not run 
in partition 1 as intervening Programs with a LOAD * 
or temporary checkpoint program. When a Program is 
cataloged by the overlay linkage editor, if the check- 
point program is terminated (immediate cancel), the 
checkpoint program may be deleted before the restart. 


Preceding the initiation of the checkpoint program when 
spooling support is active, a STOP SPOOL command must 
be entered to terminate spooling in partition 1. 


Page of GC21-5162-1 
Issued 28 September 1979 
By TNL: GN21-5674 


Assume the following job stream was submitted: 


//JOBCHKPT JOB PARTITION-1,SPOOL-NO 

//CHKPT1 LOAD CHKPT,unit 

// PAUSE STOP THE SPOOL READER AND PRINT 
AND PUNCH WRITERS 


// RUN 


The JOB statement includes PARTITION-1 and SPOOL-NO. 
These parameters prevent the checkpoint job from being 
run in partitions 2 or 3 or, if spooling is active, in partition 
1. If spooling is active, it is the operator’s responsibility 


to stop spooling in partition 1 and resubmit the checkpoint 
job. 


The PAUSE statement is a technique to inform the operator 
that the checkpoint program will be initiated. This state- 
ment is not required if spooling is not active. 


The following operator contro! commands should be 
entered at this time: 


STOP PRT 
STOP PCH or STOP RDR 


This releases the spooled devices for the checkpoint 
program. 
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Restart also requires spooling support to be inactive in 
partition 1, and the devices (same devices as used by the 
checkpoint program) must be released by using operator 
control commands. 


The following OCL is required: 


//JOBRSTR JOB SPOOL-NO,PARTITION-1 
/1 LOAD $$RSTR,unit 
// RUN 


SPOOL-NO is required to prevent the job from being run 

if spooling is active in partition 1. PARTITION-1 is 
required because $$RSTR can only be executed in Partition 
1. 


Programs can be executed prior to the restart of a check- 
point program; however, the following items should be 
observed since no system protection is provided: 


@ The checkpoint program has been permanently cata- 
loged. Also, LOAD * must not be used. 


@ If any tapes are processed by the basic tape access 
method (BTAM) or by direct call to tape IOS in the 
checkpoint program, they are dismounted to allow the 
intervening program to use the tape units. The user’s 
restart routine must reposition the tapes to the status 
at the active checkpoint. 


@ $MAINT is not executed during the time between 
failure and restart of the checkpoint program. 


@ The RPG II, FORTRAN, and COBOL compilers and 
the assembler can be executed if the object program is 
punched or cataloged to a pack other than the program 
(load) pack of the checkpoint program. Anything with 
the same name as the checkpoint program cannot be 
cataloged on the program pack of the checkpoint 
program. 


® Intervening programs must not access disk volumes in 
use by the active checkpoint program for new or scratch 
files. 


@ Disk files being used by the checkpoint program should 
not be modified by an intervening program if the user’s 
restart routine stores selected records in the files. This 
destroys the updates of the intervening program. 


@ The disk packs online at restart are the same Packs as 
those used by the checkpoint program, at the last 
checkpoint. 


@ Intervening and active checkpoint programs must not 
add to the same file. 


Note: The checkpoint must be deactivated before load- 
ing a checkpoint program into partition 1. 


@ The $DELET function (FORMAT statement) is not 
used to deallocate space which does not contain files, 
libraries, or system areas on any packs used by the 
checkpoint program. 


Checkpoints can be taken via linkage provided by COBOL 
and the basic assembler. See the appropriate reference 
manual for more information. 


INQUIRY PROGRAM 


An inquiry program is a program that is identified as an 
I-type program; it can be either an RPG or FORTRAN 
program. The program will have attributes of X'4000’ 
after it has been compiled and link edited. I-type programs 
can only be executed by an inquiry request (pressing the 
PA1 key on the keyboard). An I-type program cannot be 
interrupted. I-type programs are most efficient in a multi- 
programming environment but can also be used on a dedi- 
cated system. Spooling cannot be used for an I-type 
program. 


For more information on executing an inquiry program, 
see /BM System/3 Model 15 Operator’s Guide, GC21-5075, 
IBM System/3 RPG || Reference Manual, SC21-7504, and 
IBM System/3 FORTRAN IV Reference Manual, 
SC28-6874. 


SYSTEM INTEGRITY 


System integrity and security of user data is provided in 
several ways: 


Data File Security: File \abels and volume labels protect 
data files from accidentally being destroyed when a wrong 
data module is mounted, a wrong program is loaded, or an 
attempt is made to write over a valid data file. 


Every disk data file is protected by a file label containing 
file characteristics. Some typical fields in the file tabel 

are the file name, creation date, retention status of the file, 
and file type. The user cannot access or change the file 
without first checking the file label. 
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The volume label record defines the characteristics of a 
main data area or a simulation area. A typical field in the 
volume label is the pack name. 


To use a particular disk file required in a program, the user 
must provide the necessary specifications by means of OCL 
statements. The system uses the information given in these 
statements to verify that the correct pack is mounted and 
that the required disk file or area is available. 


Volume Security: There are times when an entire volume 
(a main data area and its associated simulation areas) is 
dedicated to one Partition’s use. During these periods, any 
request from another partition for any of these areas will 
be denied (F/message). Conditions which require volume 
dedication are: 


© Offline Multivolume File active 

® SINIT (Type-Force) 

@ Deferred Mounts 

® Dismount pending situations (WP message is on the CRT) 


5704-SC2 provides a volume recognition facility (VRF) 
for maintaining disk integrity and providing ease of use for 
3340/3344 attention situations. Primary functions of the 
VRF are: 


® Diagnose improper pack changes and request that the 
original pack be placed back Online. 


® Diagnose improper state change (write to write 
inhibited). Changing the state of the drive to write 
inhibited cannot be allowed (OB message) if any activity 
exists on the entire drive. 


® Automatic restart for 3340/3344 diagnostic messages 
and pack change messages. Messages which qualify for 
automatic restart are listed in the BM System/3 
Model 15 System Messages Manual, GC21 -5076. 


The VRF maintains a table of pack names for each disk 
area (main data areas and simulation areas). This table 
exists in resident storage, is initialized at IPL and updated 
any time a valid pack change occurs or a system service 
program changes the pack name (SSCOPY, $DCOPY, 
$COPY, and $INIT). Read/Write state of each drive is also 
Maintained in this table. 


Note: Changing a pack name by any other means is not 


allowed and may cause unpredictable results unless 
immediately followed by an IPL. 
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AUTOMATIC MESSAGE RESTART (UNIT RECORD 
RESTART) 


Automatic message restart eliminates the need for system 
Operator intervention in responding (with a 1 option) to 
certain system messages. 


This function of the SCP can be included during system 
generation by the user specifying the unit record restart 
and/or the extended restart option(s). Regardless of the 
option selected, certain messages are automatically restarted 
for the 3340 Direct Access Storage Facility and the 3344 
Direct Access Storage. For more information about auto- 
matic message restart, refer to the !BM System/3 Model 15 
System Messages, GC21-5076. 


For automatic restart, the message response is placed in 
the system history area with an R in the response position 
(indicating automatic restart and implicitly meaning a 1 
option response). If the response is logged to a printer, 
the response position will contain a 1. 


The configuration record Program (SCNFIG) can disable or 
enable the extended restart function if the user previously 
selects the extended restart and/or the unit record restart 
function(s) during system generation. 


All messages that apply to the automatic restart function 
are included in the /BM System/3 Model 15 System 
Messages, GC21-5076 publication. 


Unit Record Restart (System Generation Option) 


Unit record device error recovery messages can be auto- 
matically restarted for the following devices: 2501 Card 
Reader, 1442 Card Read Punch, 5424 MFCU, 2560 MFCM, 
3741 Data Station, 3741 Programmable Work Station, 

first 1403 Printer, and second 1403 Printer. 


Extended Restart (System Generation Option) 


The following messages are automatically restarted when 
the appropriate resource is available: 


Component Halt Subhalt Resource 
ID ID ID Needed 
F/ Px Disk 
WA Px Disk 
SP UT NI Job available on 
reader queue 
SP UT RE Job available on 
reader queue 
82 02 Tape 


MAIN STORAGE USAGE The supervisor contains the system control Programs that 
perform the functions necessary for the operation of a 





CPU main storage is logically structured (carved up) during system. The size of the supervisor is based on the options 
system generation according to specified options describing chosen at system generation. The approximate main 
the user’s operating environment. The following illustra- storage requirements for each of the functions is as follows: 
tion shows the logical structure. 
Base supervisor 23.07 
{includes 3340/ 
Supervisor 3344 support and 
and minimum 2K 
Partition 1 User program file share 
External buffers common area) 
Partition 2 User program Options: 
External buffers 
File Sharing—additional 0-14K 
Partition 3 User program common area 
External buffers Tape support 1.16 
3741 support 0.50 
File Share Area 3284 support 0.50 
2501 support 0.21 
1442 support 0.25 
MFCU support 0.65 
MFCM support 0.69 
1/O storage protection 0.49 
Unit record restart 0.34 
Support for MLTA/BSCA/LCA/DA 1.41 
Support for SIOC 1.81 
Memory resident overlays 0.50 


Interval Timer: 


Time of day only 0.47 

Full timer support 2.00 
Spooling: 

Minimum 7.11 

Maximum 20.79 
CCP: 

Minimum 1.90 

Maximum 6.64 
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Part 3. Disk Storage 


Part 3. Disk Storage 3-1 


3-2 


Disk storage is provided by one of the following configura- 
tions: 3340 Model A2; or 3340 Model A2 and 3340 Model 
B1; or 3340 Model A2 and 3340 Model B2; or 3340 Model 
A2 and 3344 Model B2. 


3340 DIRECT ACCESS STORAGE FACILITY 


A 3340 Model A2 or 3340 Model B2 consists of two drives. 


A 3340 Model B1 consists of one drive. Each drive utilizes 
a removable data module (referred to as a volume) as the 
storage medium. Each volume consists of a main data area 
and its associated simulation areas. The following illustra- 
tion shows the format of a data module (volume) mounted 
on drive 1 or 2. 
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3344 DIRECT ACCESS STORAGE 


A 3344 Model B2 consists of two drives. The storage 
medium on each drive is fixed and cannot be removed. The 
storage medium on each drive is divided into four volumes. 
The format of each volume is similar to a 3340 volume. 
One exception is that only two simulation areas are associ- 
ated with each main data area. Also, the main data area on 
a 3344 (single volume) has a larger capacity (45.7 million 
bytes) than the main data area on a 3340 volume (40.8 
million bytes). 


The following illustration shows the storage medium divided 


into four volumes. (A volume is one main data area and its 
associated simulation areas.) 
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Simulation 


~ Areas 
~ S 
~ 
~w 
~ 
~ 
~ 
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The three parts of Figure 3-1 show the Capacity and format 
for each storage medium used on the disk storage devices. 
Part 1 shows the byte capacity for each division of the 
storage medium. Part 2 shows the byte capacity, by model, 
for the main data areas. Part 3 shows the byte capacity and 
the cylinder designation for each division of a volume. 


3348 Data 3348 Data 3344 
DISK Module Module Direct 
CAPACITY (3340) (3340) Access 
IN BYTES Drives 1 and 2 | Drives 3 and 4 Storage! 
User data area 40,796,160 40,796,160 45,711,360 
Simulation area 9,830,400 4,915,200 4,915,200 
Subtotal 50,626,560 45,711,360 50,626,560 


Cylinder 0 
(reserved) 245,760 245,760 245,760 


Subtotal 50,872,320 45,957,120 50,872,320 


Alternate tracks 
(reserved) 491,520 491,520 491,520 


Other use 
(reserved) 98,304 98,304 245,760 


Total physical 
capacity 51,462,144 46,546,944 51,609,600 


lOne volume. 
One drive; four volumes. 


Figu:s: 3-1 (Part 1 of 3). Byte Capacity of Each Storage Medium 















3340! 
One Model A2 81.6 
One Model A2 and one Mode! B1 122.4 
One Model A2 and one Model B2 163.2 












3340/3344! 
One 3340 Model A2 and 
one 3344 Model B2 







447.2 


1 Storage size is for main data areas only and does not include simulation areas 
or reserved areas. 







Figure 3-1 (Part 2 of 3). Byte Capacity (Main Data Area) for Each Model 


3344 
Direct 
Access 
Storage” 


182,845,440 
19,660,800 
202,506,240 


983,040 


203,489,280 


1,966,080 


983,040 


206,438,400 
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System Use 





3348 Data 
Module 











3344 Direct 
Access 
Storage 

Each Volume 








4 Volumes 





0.25 1-166 
0.25 1-186 
0.98 — 





User Data Area 


Million 
Cylinder | Bytes Cylinder | Bytes 


Million 





lf the data module is mounted on drive 3 or drive 4, only two simulation areas are accessible. The starting cylinder is 189 and the 
capacity is 4.91 million bytes. Total capacity is 46.56 million by tes. 





Simulation Areas Other Use 









Million 
Bytes 


Million 
By tes Total 





Cylinder 





9.83} 167-168 


209 


















189-208 
(2) 


187-188 
209 


Figure 3-1 (Part 3 of 3). Byte Capacity and Cylinder Assignment for Each Volume 


SIMULATION AREAS 


System control program 5704-SC2 requires the simulation 
of a 5444 disk storage drive. All libraries (for example, user 
programs, system programs, and procedures) are located in 
an area on disk called a simulation area. The contents of 
the simulation area are then used in the same way as a 5444 
disk storage drive. 


Four simulation areas, each having a unique code, can be 
accessed on each of the volumes mounted on disk drives 1 
and 2. Each simulation area is contained within 10 contig- 
uous cylinders of a volume. (A volume is one main data area 
and its associated simulation areas.) Therefore, a total of 40 
cylinders, 169 through 208, are reserved for the simulation 
areas on these drives. Disk drives 3 and 4 can be a 3340 or 
3344, However, regardless of the type of disk drive, each 
volume on drive 3 or 4 contains only two simulation areas. 
These areas, having unique codes, occupy cylinders 189 
through 208. 
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Interchanging Data Modules (3340) 


You can interchange! any data modules on any drives. 
However, to access the correct simulation area when a data 
module is mounted on drive 3 or drive 4 requires special 
considerations. Refer to Figure 3-2 and note the unique 
simulation area codes (D3E, D3A, D4E, and D4A) and their 
location assigned to the simulation areas on drives 3 and 4. 
Also notice that only two simulation areas can be accessed 
on each drive. 


Simulation areas D3E (drive 3) and D4E (drive 4) occupy 
the same relative cylinders (189 through 198) as simulation 
areas coded D1C (drive 1) and D2C (drive 2). Also, simula- 
tion areas coded D3A (drive 3) and D4A (drive 4) occupy 
the same relative cylinders (199 through 208) as simulation 
areas coded D1D (drive 1) and D2D (drive 2). Therefore, 
when you move a data module from drive 2 to drive 3 and 
the system accesses the simulation area coded D3A, the data 
retrieved is actually from simulation area D2D. This same 
logic is true for simulation area codes D3E, D4E, and D4A. 


The machine will not access cylinders 169 through 188 in 
the main data area when the data module is mounted on 
drive 3 or drive 4. Therefore, when you move a data 
module from drive 1 or 2 to drive 3 or 4, the system cannot 
retrieve the data located in simulation areas coded D1A, 
D2A, D1B, D2B. 


: You must perform an IPL anytime you change the system pack or 
the pack that contains the active $SPOOL file. 











Figure 3-2 shows the format and the unique code for each 
simulation and main data area when the system has four 
3340 disk drives. 








Main Data Area Main Data Area 





Drive 1 (3340) Drive 2 (3340) 


q@) Denotes simulation areas associated with each volume. 


Figure 3-2. Main Data Area and Associated Simulation Areas 


Accessing Simulation Areas 


Depending on the disk configuration, the number of avail- 
able simulation areas can be 8 (two 3340 disk drives), 10 
(three 3340 disk drives), 12 (four 3340 disk drives), or 24 
(two 3340 disk drives and two 3344 disk drives); they are 
all directly accessible. However, before a simulation area 
can be directly accessed, it must first be assigned to a 5444 
unit code. The 5444 unit codes are F1, R1, F2, and R2. 
(The system service program $SCOPY provides access to a 
simulation area even though it is not assigned to a 5444 
unit code.) 


Assigning Simulation Areas 


Assignment of the simulation areas to the 5444 unit codes 
must occur during system generation. Assignment occurs 
when a unique simulation area code, such as DIC, is assigned 
by partition to a 5444 unit code such as R2. Then, after an 
IPL is performed, the simulation area D1C is directly acces- 
sible when 5444 unit code R2 is specified in the correct 
partition. For example, assume simulation area D1C is 
assigned to unit code R2. The following OCL statement 
causes the system to access simulation area D1C and load 
the program named $COPY: 


// LOAD $COPY,R2 


D3 or D31 


Main Data Area 


Drive 3 (3340) 





D4 or D41 







Main Data Area 


Drive 4 (3340) 


During system generation, each 5444 unit code (F1, R1, 
F2, R2) must be assigned by partition to a simulation area 
code. The simulation area assignment must be unique with- 
in a partition. The 5444 unit codes must be assigned in the 
following sequence during system generation: 


F1, Ri, F2, R2 
Figure 3-3 shows the format and code for each simulation 
and main data area when the system has two 3340 disk 


drives and two 3344 disk drives. 


If you do not assign simulation areas, system generation 
provides the following default assignments: 


Fi-D1A, R1-D18, F2-D2A, R2-D2B (all partitions) 
For more information about assigning simulation areas, 


refer to the /BM System/3 Model 15 System Generation 
Reference Manual, GC21-7616. 
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D1 D2 03/D31 D4/D41 


Main Data Area Main Data Area Main Data Area Main Data Area 





Drive 1 (3340) Drive 2 (3340) 


Main Data Area Main Data Area 


D43 


Main Data Area Main Data Area 


D44 


Main Data Area Main Data Area 





Drive 3 (3344) Drive 4 (3344) 





@) Denotes simulation areas associated with each volume. 


Figure 3-3. Main Data Area and Associated Simulation Areas 
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The following considerations and restrictions apply when 
you assign simulation areas during system generation. 


@ Ft may be assigned to any simulation area except D1B 
and D3B. However, when the IPL is performed, if the 
system pack is on drive 1 or drive 3 and the PROGRAM 
LOAD SELECTOR switch position is either DISK1 F1 
or DISK3 F1, the system overrides the previous assign- 
ment and assigns F1 to D1A or D3A in all partitions. 


@ R11 may be assigned to any simulation area except DiA 
and D3A. However, when the IPL is performed, if the 
system pack is on drive 1 or drive 3 and the PROGRAM 
LOAD SELECTOR switch position is either DISK1 R1 
or DISK3 R1, the system overrides the previous assign- 
ment and assigns Ri to D1B or D3B in all partitions. 


@ F2 may be assigned to any simulation area except D1A, 
D1B, D3A, or D3B. 


@ R2 may be assigned to any simulation area except D1A, 
D1B, D3A, or D3B. 


Simulation Area Reassignment 


Simulation areas can be reassigned (by partition) by use of 
the ASSIGN statement. This statement cannot be used in a 
procedure; it cannot be placed between a CALL and a RUN 
statement; and it is effective immediately after being 
processed. 


The format of the ASSIGN statement is as follows: 
// ASSIGN 5444 unit code-simulation area code 


One, two, or three simulation areas can be reassigned on 
each ASSIGN statement unless the PACK and/or AREA 
parameter is used. In this case, only one simulation area 
can be reassigned for each ASSIGN statement. 


The new assignment remains in effect until another ASSIGN 
statement is processed or until an IPL is performed, at 
which time the simulation area assignments revert to those 
made during system generation, or during the execution of 
the configuration record program. 


Simulation areas can also be reassigned by means of the 
configuration record program $CNFIG. This program 
reassigns, by partition, the 5444 unit codes to the simula- 
tion areas by changing the configuration record on the 
system pack from which the IPL was performed. For more 
information about this program, see Configuration Record 
Program—$CNFIG in Part 4 of this manual. 


The following considerations and restrictions apply to 
reassignments: 


@ The simulation area from which an IPL is performed 
cannot be reassigned. 


@ Duplicate assignments are not allowed within a partition. 


Number of Simulation Area Assignments 


The maximum number of simulation areas that can be 
directly accessed is: 10 in a three-partition system; 7 ina 
two-partition system; 4 in a single-partition system. When 
an IPL is performed, the system overrides any previous 
assignments to either F1 or R1 and assigns the simulation 
area containing the system pack to all partitions. The 
following example shows how a maximum of 10 simulation 
areas could be assigned: 


F1 assigned to D1A 
R1 assigned to D4E 
F2 assigned to D2A 
R2 assigned to D3A 


System Pack 


Partition 1 


F1 assigned to DIA 
R1 assigned to D1D 
F2 assigned to D4A 
R2 assigned to D1B 


System Pack 
Partition 2 


F1 assigned to DIA 
R1 assigned to D2D 
F2 assigned to D3E 
R2 assigned to D2C 


System Pack 


Partition 3 


The same assignment is allowed in more than one partition. 
For example, R2 could be assigned to D2B in all partitions. 
The following example shows the default assignments and 
also shows how a minimum of four simulation areas can be 
assigned: 


F1 assigned to DIA 
R1 assigned to D1B 
F2 assigned to D2A 
R2 assigned to D2B 


System Pack 


Partition 1 


F1 assigned to D1A 
R1 assigned to D1B 
F2 assigned to D2A 
R2 assigned to D2B 


System Pack 


Partition 2 


F1 assigned to D1A 
R1 assigned to D1B 
F2 assigned to D2A 
R2 assigned to D2B 


System Pack 


Partition 3 
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MAIN DATA AREAS 


A main data area is a portion of a volume that is used to 
store data files. (It is not used for library storage.) 


Main data areas for each volume start at cylinder 1 and 
extend through cylinder 166 (3340) or 186 (3344). 


Each main data area is accessed by means of a specific code. 
If the main data area that you want to access is located ona 
3340 data module, the disk drive that the data module is 
mounted on determines the code. For example, if a data 
module is mounted on drive 1, the code to access the main 
data area is D1, on drive 2 the code is D2, on drive 3 the 
code is D3 or D31, on drive 4 the code is D4 or D41. 


The storage medium for a 3344 is fixed, and the main data 
area of each volume is assigned a unique code. The follow- 
ing illustration shows the unique code and the relative loca- 
tion for each 3344 volume: 


Drive 3 


p3 / 
or (p32 ( p33 
D31 





Drive 4 





D42 | D43\ D44 cS 
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Disk Space Allocation 


For the main data areas on a 3340 or 3344, the allocation of 
disk space begins at cylinder 1 and extends toward cylinder 
166 or 186. If the LOCATION parameter is specified on 
the FILE statement, file allocation begins at the specified 
location and extends toward cylinder 166 or 186. 


Temporary or Permanent Files 


When the LOCATION parameter is not specified, the entire 
main data area is searched to find the optimum space avail- 
able for the file. The file is adjusted toward the cylinder 1 
end of the space. This procedure is also used to allocate the 
spool file. 


Scratch Files 


@ Main data area on a 3344: 

— The disk space between cylinders 167 and 186 is 
searched to find the optimum space available for the 
file. If sufficient space is found, the file is adjusted 
toward the cylinder-186 end of the space. 

— If sufficient space cannot be found within cylinders 
167 and 186, the entire main data area is searched for 
the optimum available space. The file is adjusted 
toward the cylinder-186 end of the space. 


@ Main data area on a 3340: 
— The entire disk is searched for the optimum space, 
and the file is adjusted toward the cylinder-166 end 
of the space. 


Considerations and Restrictions 


@ Use the file compress program ($FCOMP) periodically to 
remove existing gaps between files. 


©@ To decrease the amount of seek time, group all files 
associated with a specific job together on the same 
volume. 


@ To decrease the amount of seek time, fill all disk space on 
a main data area of a 3344 to capacity before using a new 
volume. 


ALTERNATE TRACKS 


An alternate track is a substitute track selected to accept 
the contents of a defective track. Forty alternate tracks are 
available on each volume. For a 3340 volume, they are 
contained in cylinders 167 and 168. For a 3344 volume, 
they are contained in cylinders 187 and 188. 


An alternate track can be assigned to any track except 
cylinder 0, head 0 on the following main data areas: D1, 
D2, D3, D31, D4, and D41, Whenever a program attempts 
to use a track that has been assigned an alternate, the 
alternate is used automatically. 


When programs encounter permanent reading or writing 
errors, the system automatically halts the current operation. 
The alternate track assignment program can then be exe- 
cuted to test suspected defective tracks; alternates will be 
assigned as needed. Some of the data might not be recovered 
when the alternate track assignment program is used. If the 
data cannot be recovered without an error condition, the 
record or records are read under reduced hardware checking 
conditions and are written on the alternate track. The 
record or records that contain the error are printed in a form 
that completely identifies the data written on the alternate 
tracks. This printout should be retained. It is required for 
running the alternate track rebuild program. 


File Processing Considerations 


System performance is degraded if an alternate track is 
assigned for one or more tracks of a file index. {t is recom- 
mended that the file be moved so that the alternate track 
contains the data portion of that indexed file. 
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CYLINDER 0 FORMAT following illustration shows the format of cylinder O and 


the type of information contained in each record: 
On each volume, cylinder 0 is reserved for system support 


of the main data area. It also contains the necesary micro- 
program and data to perform an IPL for the system. The 


Head 0 


IPL 
$/370' 





EC level of 













Records 4-24 are not written. This meets 
the direct access storage device (DASD) 
label standard requirements. 













‘System/3 
IMPL code 


System/3 
IMPL code 






R1 R2 R3 


R24 R25 R29 R30 R32 R33 R37 R38 R46 R47 R48 


Head 1 


Records 1-20 contain the same type of data on CEFE/supervisor 
both the 3340 and the 5445. rollout 





R20 R21 R24 R25 R32 R33 R40'R41 R48 


Head 2 


3340 functional microcode 





R48 


Head 3 
System/370 VTOC has a 44-byte key length and a 96-byte data 


length, with one entry allocating the entire data module as a Remaining track area is not formatted 
nonexpiring data file. 





R1 R22 R23 R48 
Head 4 

Reserved 
Rt R48 


Heads 5-18 


System/3 1000-file VTOC 









R20 R21 R48 


Head 19 


System/3 1000-file VTOC Transient save area 





R1 R10 R11 R40 R41 R48 





These areas are written in count-key-data format (standard data format) readable to System/3 and System/370. Other areas 
are written in compressed data format. 
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Considerations and Restrictions 


@ When using the dump/restore program ($DCOPY) to 
provide backup for the system pack and cylinder 0, the 


SYSTEM-YES parameter is specified to dump cylinder 0. 


© If you specify SYSTEM-YES when the dump function is 
performed, you must also specify SYSTEM-YES when 
the restore function is performed. 


INITIAL PROGRAM LOAD (IPL) 


The position of the PROGRAM LOAD SELECTOR switch 
determines which simulation area will be accessed during an 
IPL. An IPL can be performed from drive 1. An IPL can 
also be performed from drive 3, provided that drive 3 is a 
3344 direct access storage. 


The system pack must occupy one of the following simula- 
tion areas: D1A (F1) or D1B (R1) on drive 1; or D3A (F1) 
or D3B (R1) on drive 3. 


Figure 3-4 shows the relationship between the position of 
the PROGRAM LOAD SELECTOR switch and the accessed 


simulation area. 


For more information about IPL, see /nitial Program Load 
in Part 2 of this manual. 
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Figure 3-4. Main Data Area and Associated Simulation Areas 
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Part 4. System Service Programs 


Part 4. System Service Programs 4-1 


The Model 15 SCP (5704-SC2) includes a group of disk- 
resident system service programs. These programs do a 
variety of jobs, from preparing disks and tapes to maintain- 
ing the system libraries. The following is a list of the system 
service programs discussed in this section and their 


function(s): 
Program 


Alternate 
Track 
Assignment 


Alternate 
Track 
Rebuild 


Configura- 
tion Record 


Copy/ 
Dump 


Dump/ 
Restore 


File 
Delete 


File 
Compress 


System 
History 
Area 

Display 


Disk 
Initialization 


Name 


$ALT 


$BUILD 


$CNFIG 


$COPY 


$DCOPY 


$DELET 


$SFCOMP 


$HIST 


SINIT 


Program Function 


Assigns an alternate track in 
place of a defective track and 
prints the data content of the 
area in error. 


Corrects data on the assigned 
alternate track. 


Changes certain information in 
the configuration record. 


Copies a file, an entire main 
data area, or an entire simula- 
tion area. 


Provides backup for a main 
data area or simulation area on 
magnetic tape, or a simulation 
area on diskette. 


Deletes temporary or permanent 
data files. 


Moves files for the purpose of 
removing gaps between files. 
This program also copies all 
files from a main data area. 


Displays the contents of the 
system history area. 


Performs surface analysis on 
disks and formats disks accord- 
ing to disk system management 
requirements. 


Program 


Chain 
Cleaning 


File and 
Volume 
Label 

Display 


Library 
Maintenance 


Spool File 
Copy 


Recover 
Index 


Reassign 
Alternate 
Track 


Simulation 
Area 


Tape 
Initialization 


Tape 
Error 
Summary 


VTOC 
Service 


Name 


$KLEAN 


$LABEL 


$MAINT 


$QCOPY 


$RINDX 


$SRSALT 


$SCOPY 


$TINIT 


$TVES 


$WVTOC 


Introduction 


Program Function 


Exercises the IBM 1403 Printer 
for the purpose of cleaning the 
print chain (train). 


Prints the information from 
VTOC pertaining to a single file 
or to all files. 


Allows you to produce, main- 
tain, and service libraries. 


Copies an entire spool file; 
copies all or part of a spool 
print, spool punch, or spool 
reader queue; copies to the 
spool reader, spool print, or 
spool punch queue; copies the 
status of the spool file queues. 


Sorts the file index and updates 
the VTOC entry of an indexed 
file to reflect added records in 
case of abnormal termination. 


Relocates the alternate track 
area on a 3340 data module so 
that the data module can be 
used on a Systemn/360 or 
System/370. 


Supports the simulation areas 
of a 3340 or 3344 volume. 


Creates or deletes standard tape 
volume labels, checks for un- 
expired files, and displays exist- 
ing volume and data file labels. 


Prints tape error statistics that 
have been accumulated during 


processing. 


Removes the gaps between 
entries in a VTOC. 
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The information for most programs is divided into six 
sections: 


©@ Program description 

® Control statement summary 

@ Parameter summary 

@ Parameter descriptions 

© OCL (operation control language) considerations 


@ Examplés 


PROGRAMMING CONSIDERATIONS 


For information and reference, the following is a list of SCP 
system service programs and the minimum partition sizes 
required for execution: 


$$RSTR Checkpoint Restart 8K 
SALT Alternate Track Assignment 8K 
$BUILD Alternate Track Rebuild 8K 
$CNFIG Configuration Record 8K 
$COPY Copy/Dump 10K 
$DCOPY Dump/Restore 8K 
$DELET File Delete 8K 
$FCOMP File Compress 10K 
$HIST System History Area Display 8K 
SINIT Disk Initialization 8K 
$KLEAN Chain Cleaning 8K 
$LABEL File and Volume Label Display 
Simulation area VTOC 
1000-file VTOC 8K 
1-1000 entries unsorted 10K 
1-300 entries sorted 10K 
301-500 entries sorted 12K 
501-700 entries sorted 14K 
701-900 entries sorted 16K 
901-1000 entries sorted 18K 
$MAINT Library Maintenance 10K 
$MPXDV Macro Processor 12K 
SOLINK Overlay Linkage Editor 10K 
$QCOPY Spool File Copy 10K 
$RINDX Recover Index 10K 
$RSALT Reassign Alternate Track 8K 
$SCOPY Simulation Area 10K 
$TINIT Tape Initialization 8K 
$TVES Tape Error Summary 8K 
$WVTOC VTOC Service 8K 
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CONTROL STATEMENTS 


All system service programs except $TVES, $RINDX, and 
SKLEAN require that you supply control statements. 
These statements give the program information concerning 
the output you want the program to produce or the way in 
which you want the program to perform its function. The 
programs read these statements from the system input 
device. They must be the first input read by the program. 


Every control statement is made up of an identifier and 
parameters. The identifier is a word that identifies the 
control statement. It is always the first word of the state- 
ment. Parameters are information you are supplying to the 
program. Every parameter consists of a keyword, which 
identifies the parameter, followed by the information you 
are supplying. 


WRITING CONTROL STATEMENTS FOR SYSTEM 
SERVICE PROGRAMS 


To write control statements, use the sections in the follow- 
ing ways: 


1. Look at the Control Statement Summary to determine 
which control statements and parameters apply to the 
program functions you are interested in. (The program 
function(s) is stated in the text preceding the Contro/ 
Statement Summary.) 


2. If you need information about the contents or mean- 
ings of particuiar parameters, look at the Parameter 
Summary. 

3. If you need more detailed information about param- 


eters, read the Parameter Descriptions following the 
Parameter Summary. 


4. If you need examples of specific jobs, look at the 
Example section. All examples show the OCL state- 
ments and control statements for specific jobs. 


5. To find information concerning the use of the system 
service programs, refer to OCL Considerations for the 
necessary OCL statements. 


Coding Rules 
The rules for coding control statements are as follows: 


1. Statement identifier. // followed by a blank should 
precede the statement identifier. Do not use blanks 
within the identifier. 


2. Blanks. Use one or more blanks between the identifier 
and the first parameter. Do not use them anywhere 
else in the statement. 


3. Statement Parameters. Parameters can be in any 
order. Use a comma to separate one parameter from 
another. Use a hyphen (-) within each parameter to 
separate the keyword from the information you 
supply. Do not use blanks within or between 
parameters. 


4. Statement parameters containing a list of data after 
the keyword. Use apostrophes (’) to enclose the 
items in the list. Use a comma to separate one item 
from another. Example: UNIT-‘R1,R2’ (R17 and R2 
are the items in the list). 


5. Statement length. No control statements, except for 
some disk initialization, library maintenance, and 
spool file copy statements may exceed 80 to 96 
characters. The following library maintenance state- 
ments can be continued on another statement (see 
Continuation under Coding Rules in Part 1 of this 
manual): 


// ALLOCATE 

// COPY (not ENTRY statements or COPY statements 
read from a file) 

// DELETE 

// MODIFY (not REMOVE, REPLACE, or INSERT 
statements) 

// RENAME 


The disk initialization statement // VOL and the spool 
file copy statements // COPYRDRO, // COPYPRTQ, 
// COPYPCHO, // CHAIN, // RESTORE, // COPYQ, 
and // DISPLAY can also be continued. 


The following is an example of a contro! statement: 
// COPY FROM-F1,LIBRARY-O,NAME-SYSTEM,TO-R1 
The statement identifier is COPY. The parameter keywords 


are FROM, LIBRARY, NAME, and TO. The information 
you supply is F1,0, SYSTEM, and R11. 


END Control Statement 


The END statement is a special control statement that indi- 
cates the end of control statements. It consists of // END 
starting in position 1 and must always be the last control 
statement for the programs. 


Placement of Control Statements in the Job Stream 
Control statements for system service programs must follow 


the RUN statement. The following example shows the use 
and placement of control statements. 


OCL J // LOAD $COPY,F1 
statements | // RUN 
// COPYPACK Control Statements 
FROM-F1,TO-R1 for the $COPY 
// END program 


Special Meaning of Capital Letters, Numbers, and Special 
Characters 


Capitalized words and letters, numbers, and special charac- 
ters have special meanings in control statement descriptions. 


In control statements, capitalized words and letters must be 
written as they appear in the statement description. Some- 
times numbers appear with the capitalized information. 
These numbers must also be written as shown. 


Words or letters that are not capitalized mean you must use 
a value that applies to the job you are doing. The values 
that can be used are listed in the parameter summaries for 
the control statements. 


Braces { \ and brackets [ ] sometimes appear in parameters 
shown in statement summaries and parameter summaries. 
They are not part of the parameter; they simply indicate a 
choice of vatues to complete the parameter. You must 
choose one of the values surrounded by braces; you may 
choose a parameter surrounded by brackets or omit that 
parameter entirely. Underscoring of one value enclosed by 
braces indicates the default. If you specify the keyword of 
a parameter, you must complete the parameter by supply- 
ing the code or data even though a default is indicated. 


Introduction 4-5 


For example: 


+ [peou-tse] 


means that if you do not specify this 
parameter, the system will select 
RECL-96. If you specify the keyword 
RECL, you must also supply one of the 
values (80 or 96). 


e ReTAIn-{ means that you must specify either 
RETAIN-T or RETAIN-P. 


© [,BLKL-block length] means that the block fength 


parameter may be omitted 
entirely. 
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DEVICE CODES 


System service programs use parameters that require a code 
to indicate the unit being referenced. A unit code can refer 
to a main data area, simulation area, tape drive, or other 
device, depending on the function being performed. 


Figure 4-1 shows the codes used for the main data areas and 
simulation areas. The simulation area codes are used in the 
ASSIGN statement, configuration record program ($CNFIG), 
and in the simulation area program ($SCOPY). tn all other 
programs, a 5444 unit code (F1, R1, F2, R2) is used instead 
of the simulation area code. Before using these codes, you 
should be familiar with the format of each volume and the 
assignment of the codes as described in Part 3 of this manual. 


Disk Drive 
Type and 
Designation 


Simulation Area 
Codes 


Main Data 
Area Codes 


3340 drive 1 | D1 
3340 drive 2 | D2 
3340 drive 3 | D3 or D31 
3340 drive 4 | D4 or D41 


D1A,D1B, DIC, D1D 
D2A, D2B, D2C, D2D 
D3E, D3A 
D4E,D4A 


3344 drive 3 

Volume 1 D3 or D31 
Volume 2 D32 
Volume 3 D33 
Volume 4 D34 


D3E, D3A 
D3F, D3B 
D3G, D3C 
D3H, D3D 


3344 drive 4 

Volume 1 D4 or D41 
Volume 2 D42 
Volume 3 D43 
Volume 4 D44 


D4E, D4A 
D4F, D4B 
D4G, D4C 
D4H, D4D 


Figure 4-1. Main Data Area and Simulation Area Codes 


Alternate Track Assignment Program—$ALT 
PROGRAM DESCRIPTION 


The alternate track assignment program has the following 
function: 


Assign alternate tracks to disk tracks that become 
defective after they are initialized. 


When the program assigns an alternate, it transfers the 
contents of the defective track to the alternate. Alternate 
tracks can replace any primary tracks except cylinder 0, 
head 0, on D1, D2, D3 or D31, D4 or D41. The cylinder 0 
head O, track is reserved for system use. 


’ 


CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


Function Control Statements ® 


Conditional Assignment // ALT@ PACK-name,UNIT-code, VERIF Y-number 
// END 
Unconditional Assignment // att ® PACK-name,UNIT-code, VERIF Y-number, ASSIGN-track 


// END 
@) For each use, the program requires the statements in the order they are listed: ALT,END. 


@) There can be ten ALT statements per job. 
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PARAMETER SUMMARY 


Parameter Description 


PACK-name 


UNIT-code 


VERIFY-number 


Name of the main data area. 
Location of the disk. Possible codes are those for the main data areas. 


In testing the condition of a track, do surface analysis the number of times 


indicated (number can be 1-255). If VERIFY parameter is omitted, do 
surface analysis 16 times. The VERIFY parameter applies only to tracks 
in the suspected defective track list. 


ASSIGN-track 


PARAMETER DESCRIPTIONS 
PACK Parameter 


The PACK parameter (PACK-name) tells the program the 
name of the area to be processed. This is the volume label 
written by the disk initialization program. (See Disk 
Initialization Program.) 


The alternate track assignment program compares the name 
in the PACK parameter with the volume label to ensure 
that they match. 


UNIT Parameter 


The UNIT parameter (UNIT-code) indicates the location of 
the area-containing suspected defective tracks. Codes for 
the possible locations are those for the main data areas. 


VERIFY Parameter 


The VERIFY parameter (VERIFY-number) enables you to 
indicate the number of times you want the program to do 
surface analysis before judging whether or not the track is 
defective. The number can be from 1 to 255. If you omit 
the parameter, the program does surface analysis 16 times. 
This parameter applies only to tracks in the suspected 
defective track list. 
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The specified track is unconditionally assigned an alternate. Only one track 
can be assigned for each ALT statement. Valid track numbers are: 1-4187 
for each volume on a 3340; 1-4199 for volumes D3 or D31 and D4 or D41 

on a 3344; 0-4199 for volumes D32, D33, D34, D42, D43, D44 on a 3344. 





ASSIGN Parameter 


The ASSIGN parameter (ASSIGN-track) provides uncondi- 
tional assignment of the specified track to the next avail- 
able alternate track. 


You can assign alternates for all tracks except 0 when the 
volume is on a 3340 (D1, D2, D3 or D31, D4 or D41). 
Valid track numbers are 1 through 4187. 


You can assign alternates for all tracks except 0 on volumes 
D3 or D31 and D4 or D41 on a 3344. Valid track numbers 
are 1 through 4199. 


You can assign alternates for all tracks on volumes D32, 
D33, D42, D43, and D44. Valid track numbers are 0 
through 4199. 


You can assign an alternate for only one track for each 
ALT statement you supply. 


UNCONDITIONAL ASSIGNMENT 


Unconditional assignment applies to tracks that occasionally 
cause read or write errors. Such tracks might not cause 
errors when tested by the alternate track assignment program 
(SALT) during conditional assignment. If they do not, the 
program wil! not assign alternate tracks to them. If you 

still want to assign alternates to these tracks, use uncondi- 
tional assignment. In doing unconditional assignment, the 
program assigns an alternate without first testing the condi- 
tion of the track(s) suspected of being defective. 


After a track has an assigned alternate, the only way to 
retest the track is to execute the disk initialization program 
(SINIT) with parameters TYPE-FORCE and ERASE-YES. 


CONDITIONAL ASSIGNMENT 


Conditional assignment consists of testing the condition of a 
track (surface analysis) and, if the track is defective, assign- 
ing an alternate track to replace it. 


Situation: Conditional assignment applies to tracks that 
cause reading or writing errors during a job. Any time a 
track causes such errors, the system does the following: 


1. Stops the program currently in operation 


2. Writes the track address in the main data area defec- 
tive track table 


3. Halts with a halt code indicating a permanent disk 1/O 
error 


You can then run the alternate track assignment program. 


When you use the alternate track assignment program to do 
conditional assignment, the program locates the tracks by 
using the addresses from the defective track table. The 
program will do conditional assignment for all identified 
tracks (one at a time) as long as there are alternate tracks 
available for assignment. 


Surface Analysis: Surface analysis is a procedure the 
program uses to test the conditon of tracks. It consists of 
writing test data on a track, then reading the data to ensure 
that it was written properly. 


Before doing surface analysis, the alternate track assignment 
program transfers any data from the track to an alternate 
track. This alternate is assigned if the track proves to be 
defective. 


In judging whether or not the track is defective, the program 
does surface analysis the number of times you specify in the 
VERIFY parameter. If you omit the parameter, the pro- 
gram does surface analysis 16 times. If the track causes 
reading or writing errors any time during surface analysis, 
the program considers the track defective. 


Assignment of Alternate Tracks: \f a track proves to be 
defective, the program assigns an alternate track. The 
alternate becomes, in effect, a substitute for the defective 
track. Any time a program attempts to use the defective 
track, it automatically uses the alternate instead. 


Each volume (a main data area and its associated simulation 
areas) has 40 alternate tracks. The program does not do 
conditional assignment if all alternate tracks are in use. 


Note: $ALT does not process suspected defective tracks in 
any area that is currently being used. A message is used if 
suspected defective tracks are not processed. 


Incorrect Data: \f a track is defective, some of the data 
transferred to the alternate track could be incorrect. 
Therefore, when reading data from the defective track, the 
program prints all track records containing data that caused 
reading errors. Characters that have no print symbol are 
printed as two-digit hexadecimal numbers. 


The following is an example: 
ABCDE GH123 56... 

B A 

6 4 


Appendix A lists the characters in the standard character 
set and their corresponding hexadecimal numbers. 


To correct errors on the alternate track, use the alternate 
track rebuild program. 
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OCL CONSIDERATIONS 


The following OCL statements are needed to load the 
alternate track assignment program: 


// LOAD $ALT,code 
// RUN 


The code you supply depends on the location of the simula- 
tion area containing the alternate track assignment program. 


Possible codes are R1, F1, R2 and F2. 


EXAMPLES 
Conditional Assignment 
Figures 4-2 and 4-3 are examples of the OCL statements 


and control statements needed for a conditional assignment 
as described in the following situation. 


Situation 


The system cancels a job if a defective track is found on the 
main data area on drive 2. (The name of the disk is 
BILLNG.) Before doing more jobs, the operator wants to 
use the alternate track assignment program to check the 
condition of the track and assign an alternate to the track 

if it is defective. 











Explanation: 


Alternate track assignment program is loaded from the F1. 


Figure 4-2. OCL Load Sequence for Aiternate Track Assignment 


4-10 














Explanation: 


@ The name of the disk (BILLNG) and its location (main 
data area on drive 2) are indicated by the PACK and 
UNIT parameters in the ALT statement. 


@ Because the VERIFY parameter was omitted from the 
ALT statement, the program does surface analysis 16 
times when it tests the condition of suspected defective 
tracks. 


Figure 4-3. Control Statements for a Conditional Assignment 


Unconditional Assignment 


Figure 4-4 is an example of the OCL statements and control 
statements needed for an unconditional assignment. 












i 

TTT TY i 
| pe 
mul LETT TTT TTT TTT 
iret 
| 
| 





Explanation: 


@ The name of the disk (BILLNG) and its location (main 
data area on drive 2) are indicated by the PACK and 
UNIT parameters in the ALT statement. 


@ Because of the ASSIGN parameter, the program assigns 
track number 4120 an alternate without testing its 
condition. 


Figure 4-4. OCL and Control Statements for an Unconditional 
Assignment 


MESSAGES FOR ALTERNATE TRACK ASSIGNMENT 


Message 


ALTERNATE TRACK 
ASSIGNED 


PRIMARY TRACK 
HAS BEEN TESTED OK 
TRACK xxxx,UNIT-zzz 


**RECORD WITH 
DATA ERROR** 


PRIMARY TRACK 


xxxx ALTERNATE 
TRACK yyyy,UNIT-zzz 


Meaning 


This message is printed when an 
alternate track has been assigned 
to a defective track and the data 
has been transferred to the 
alternate track. 


This message is printed when the 
program determines that a 
primary track is not defective. 
xxxx is the primary track 
number and zzz is the volume 
involved. 


This message is printed when the 
alternate track assignment pro- 
gram found an error when trans- 
ferring data. The record that has 
the error is printed out. 


This message is printed after 
ALTERNATE TRACK 
ASSIGNED. xxxx is the 
primary track number, yyyy is 
the alternate track number, and 
2zz is the volume involved. 
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Alternate Track Rebuild Program—$BUILD 
PROGRAM DESCRIPTION 


The alternate track rebuild program has the following 
function: 


Enable you to correct data that could not be transferred 
correctly to an alternate track. 


One or more alternate tracks can be corrected by the 
system during one execution of this program. You must 
supply the data to correct the errors. 


To write control statements for this program, you need the 
information printed by the alternate track assignment pro- 
gram when it assigned the alternate track. The printed in- 
formation tells you the name of the area and numbers of 
the track and records suspected of containing incorrect 
data. It also includes the data from these records that you 
can use to locate incorrect data. Fixed record refers to a 
physical 256-byte record. 


CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


Control! Statements and Substitute Data 


To replace characters 1-12 and 75-78 of a sector, you can // REBUILD PACK-name,UNIT-code,T RACK- 
use either of the following: location, LENGTH-number, DISP-position 


@ Use one REBUILD statement and replace al! the Substitute data 
characters specifying a LENGTH parameter of 78. 
// END 
@ Use one REBUILD statement for every set of posi- 
tions you correct. 


The data you want to substitute must follow the REBUILD 
statements to which it applies. The order of the control 
statements and data in the preceding example would be: 


// REBUILD statement 


data for positions 1-78 
// END 


// REBUILD statement for positions 1-12 
data 

// REBUILD statement for positions 75-78 
data 

// END 





PARAMETER AND SUBSTITUTE DATA SUMMARY 


REBUILD Statement 


Parameter Description 
 ——$———$ $< aa eee 


PACK-name 
UNIT-code 


TRACK-location 


LENGTH-number 


DISP-position 


Name of the area. 
Location of the disk. Possible codes are those for the main data areas. 


Number of track and fixed record containing incorrect data. Number is 
printed by alternate track assignment program. Track number must be 
four digits; fixed record number must be two digits. (TRACK-011109 
means track 111, fixed record 9.) 


Number of characters being replaced. Number can be 2-256 and must be 
a multiple of 2 (2, 4, 6, etc). 


Position of the first character being replaced in the record. Position can be 
1-255. 





Substitute Data: Code each character in hexadecimal form. 
Follow every second character, except the last, with a 
comma. Example: The numbers 123456 would be coded 
as F1F2,F3F4,F5F6. (Appendix A lists the hexadecimal 


codes for System/3 characters.) 
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PARAMETER AND SUBSTITUTE DATA DESCRIPTIONS 
PACK Parameter 


The PACK parameter (PACK-name) tells the program the 
name of the area that contains the alternate track being 
corrected. This is the volume label written by the disk 
initialization program. 


The alternate track rebuild program compares the name in 
the PACK parameter with the volume label to see if they 
match. 


UNIT Parameter 


The UNIT parameter (UNIT-code) indicates the location of 
the area that contains the alternate track being corrected. 
Possible codes are those for the main data areas. 


TRACK Parameter 


The TRACK parameter (TRACK-location) identifies the 
track and record containing the data being corrected. The 
defective track, not the alternate track, is the one you refer 
to. Referencing the defective track is the same as referenc- 
ing the alternate track. 


For the main data area, the possible track numbers are 
0001-4184. Always use four digits. The possible fixed 
record numbers are 01-48. Always use two digits. The 
track number must precede the fixed record number. For 
example, the parameter TRACK-111019 means track 1110, 
record 19, 


Track and record numbers are printed by the alternate 
track assignment program when it prints data from records 
that contain incorrect data. © 


LENGTH Parameter 


The LENGTH parameter (LENGTH-number) tells the pro- 
gram how many characters you are replacing in the fixed 
record. You must replace characters in multiples of 2 (2, 4, 
6, and so on). The maximum is 256, which is the Capacity 
of a fixed record. 


Length applies to characters that occupy consecutive posi- 
tions in the fixed record. If the characters you want to 
replace do not occupy consecutive positions, you must 
either replace all intervening characters or use more than 
one REBUILD statement. For example, to replace charac- 
ters 10-11 and 24-25 in a fixed record, you can do either of 
the following: 


@ Use one REBUILD statement to replace characters 
10-25 (LENGTH-16). 


@ Use two REBUILD statements to replace characters 
10-11 (LENGTH-2) and 24-25 (LENGTH-2). 


DISP (Dispiacement) Parameter 


The DISP parameter (DISP-position) indicates the position 
of the first character being replaced in the fixed record. 
The position of the first character is 1; the position of the 
second character is 2, and so on. The maximum position 
you can specify is 255. 


Beginning at the position you indicate, the alternate track 
rebuild program replaces the number of characters you 
indicate in the LENGTH parameter. 


Substitute Data 


After each REBUILD statement, you must code the sub- 
stitute characters that apply to that statement. The charac- 
ters must be in hexadecimal form. Appendix A shows the 
hexadecimal codes for the System/3 character set. 


Include a comma after every second character. For 
example, the data F1F2,F3F4,F5F6 represents 123456. 
F1 is the hexadecimal form of 1; F2 is the hexadecimal 
form of 2, and so on. 


Code only the number of characters you indicate in the 
LENGTH parameter in the REBUILD statement. 


Note: \f the LENGTH parameter of the REBUILD state- 
ment exceeds 38, at least two substitute data statements 
are required. Each substitute data statement, except the 
last one, must be completely filled with data and must have 
a comma in column 95 and a blank in column 96. For an 
80 column input device, it is possible to have only one 
substitute data statement. 


OCL CONSIDERATIONS 


The following OCL statements are needed to load the 
alternate track rebuild program. 


// LOAD $BUILD,code 
// RUN 


The code you supply depends on the location of the simula- 


tion area containing the alternate track rebuild program. 
Possible codes are R1, F1, R2, F2. 


EXAMPLES 
Correcting Characters on an Alternate Track 
Figures 4-5 and 4-6 are examples of the OCL and control 


statements needed for correcting characters on an alternate 
track. 


Pa 








Pert 


Explanation: 





Alternate track rebuild program is loaded from F1. 


Figure 4-5. OCL Load Sequence for Alternate Track Rebuild 
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Situation 


Assume that the alternate track assignment program ($ALT) 
printed the following information: 


TRACK Le eeceee LO. eee eeee 20 ee eeeee BO ccecece 4Oe wee ceee SOeceecece ODeweceoee TOs eseeeee BO. eeee 88 
020001 
90000000000000001111111L1LL111111122 222222222222223333 333333333333 44444444444444455555555 
0123456789ABCDEFO123456789A BCDEF01L23456789ABCDEF0123456789ABCDEF 123456789ABCDEF 01234567 


2955555566666666666666667777717777777777788888888888888889999999999999999AAAAAAAAAAAAAAAA 
SSABCDEF 012345678 9ABCDEF 012345678 9ABCDEF0L234567 8 9A BCDEF 012345678 9ABCDEF01L23456789A BC DEF 
ABCDEFGHI JKLMNOPQR STUVWXYZ 0123456789 
BBBBBBBBBBBBBBBBC cCCccccD DDDDDDEF EEEEEE FFFFFF 
0123456789ABCDEFO ABCDEFO ABCDEFOL ABCDEF ABCDEF 


It means that errors were detected in record 1 of track 200. 
(Assume the name of the area is BILLNG.) 


In checking the characters printed by the alternate track 
assignment program, you found that the characters in 
positions 120-123 in the record are incorrect, and you want 
the operator to run the alternate track rebuild program to 
correct them. 





Explanation: 


@ The name of the main data area (BILLNG) and its loca- 
tion (drive 2) are indicated in the PACK and UNIT 
parameters in the REBUILD statement. 


e@ The record containing the incorrect characters is record 1 
of the alternate track assigned to track 200 (TRACK- 
020001). The character in position 120 is the first 
character being replaced (DISP-120). 


© The characters in positions 120 through 123 in record 1 
are being replaced (LENGTH-4). 


@ The substitute characters follow the REBUILD state- 
ment. They are G (C7), H (C8), 1 (C9), and | (F1). 


Figure 4-6. Control Statements for Correcting Characters on an 
Alternate Track 


Configuration Record Program—$CNFIG 
PROGRAM DESCRIPTION 


The configuration record program has the following 
functions: 


Change the assignment of the 5444 unit codes. 


@ Set the automatic start for spooling functions on or off. 


@ Set the automatic write for spooling functions on or off. 


@ Allow or disallow the blank OCL function. 
@ Change the support for cataloging to a program pack. 


@ Allow or disallow sharing among partitions of the con- 
sole as a system input device. 


@ Change the spooling card type, forms type, or track 
group size. 


@ Change the system date format. 

@ Change the hait status for a partition. 

@ Change the hait status for the system history area. 

@ Change the system IDELETE status. 

@ Change the log device and eject status for a partition. 


@ Delete or retain I|-type messages that are on the console 
at EJ. 


@ Format and print the configuration record. 

@ Change the priority of partitions and spool during IPL. 

@ Allow or disallow $QCOPY to erase the display screen 
before writing the next message to the terminal. 
(SQCOPY must be executing under CCP.) 

@ Change the requirement for $OCOPY authorization. 

@ Change the limit of the priority of jobs placed on the 
active spool file reader queue by $OCOPY. (SQCOPY 


must be executing under CCP.) 


@ Allow messages to be displayed while ENTER READER 
DATA or ENTER DATA is prompted on the console. 


@ Change the extended restart function. 
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@ Change the warning point for SHA overlay. 


e@ Change the size of main storage, selected partitions, and 
file share area. 


@ Change the spool file cylinder size. 
e@ Change the spool file location. 


®@ Include the page/card count and the form/card type in- 
formation on the spool time messages that are entered 
in the system history area. 


@ Change the system input, punch, or print device assigned 
to a partition. 


@ Allow or disallow time stamping of I-, D-, and R-type 
messages that appear on the system console. 


@ Change the ratio of share DTFs and FSQEs in the file 
share area. 


@ Change the file share default option. 


Note: Before executing this program, you should be 
familiar with the information about simulation areas in 
Part 3 of this manual and also the information presented 
under Considerations for Program Pack Protection in the 
IBM System/3 Model 15 System Generation Reference 
Manual, GC21-7616. 


Changing the Configuration Record 


The parameter that you specify on the control statement 
changes the configuration record on the system pack from 
which the IPL was performed. Therefore, it is not neces- 
sary to do a system generation for the purpose of changing 
any part of the configuration record that can be changed 
by the $CNFIG program. 


Although the configuration record on the system pack is 
changed at the time $CNFIG is executed, the change is not 
effective until another IPL is performed. The change to the 
configuration record remains in effect until another system 
generation or until it is changed by $CNFIG. 
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CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 


desired results. 


Function Control Statements 


Assign 5444 unit codes to 


partition 1, 2, or 3 simulation 


areas 


Set automatic start for 
spooling functions on 
or off 


Set automatic write for 
spooling functions on 
or off 


Blank OCL 
Catalog to a program pack 


Specify whether the system 
console can be shared by 
the partitions as a system 
input device 


Change spooling card type 


Change spooling forms type 


Change system date format 


Change ratio of share DTFs 
to FSQEs and/or file share 
default option 


Halt partition 1, 2, or 3 on 
system messages 


Set the delete !-messages 
function 


© 
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1 
// ASNP <2 ‘ code-area 
3 


// AUTST [print re | runon: 


@ 
| | »PUNCH- 


YES 
// AUTWT | prune NO 


YES 
NO 





YES 
NO 





| sexs 
| 








| 


YES 











//BLANK  OCL- NO 


NO 
NONE 
// CATLG PACK-¢ CCP 
ALL 
YES 
// CONSOL sare. | YE \ 
// DEFCN CARD-xxx 
// DEFFN FORM-xxx 
MMDDYY 
// FORMAT DATE OMY, 
® 1 ( 
2 YES 
// FSHARE RATIO- 3 »SHARE- jn 
4 x 
HLTP1 
// HLTP2 S HALT- el 
HLTP3 
YES 
//\TYPE ioeveTe-{ te } 


You must specify at least one parameter. 


Function 


Reassign partition 1, 2, or 
3 log device and set eject 
status 


Specify whether t-type 
messages on the screen at 
EJ are to be retained 


Print configuration record 


Specify the priority of 
Partitions and spool 
during IPL 


Specify whether $OCOPY is to 
erase the screen before 

writing the next message; 
change the authorization 
requirement for $OCOPY; 
change the limit of the 
priority of jobs placed on 

the active spool file reader 
queue by $OCOPY 


Set extended restart 
function on or off 


Halt system or invoke 
$HACCP when the SHA 

is xx tracks from overlaying 
unprinted records 


Change the size of main 
storage, partitions 1, 2, 
and 3, and/or the file 
share area 


Change the spool file 
cylinder size 


Change the location of 
the spool file 


yeu must specify at least one parameter. 
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Control Statements 


3277 - 
LOGP1 Vaaogf EYECT lL 
pee peewee | NOEJECTS 
LOGP3 / j,EJECT | 
eee ),NOEJECT $ 
YES | 
M : 
// MESSAG RETAIN Ys | 
// PRINT 
“ SPOOL )} . 
// PRIORITY SEQUENCE-’< P1 Ss < SA eh oF 
Is WEN 
P3 


@ 
O-,® 
| 


YES YES 
: ; PTY- 
// QCOPY | ERASE Vo t | .autHonize rae 1 » ROPTY 


aohWNH—— Oo 


/] READY | exten: { vey | smessace. J YES \ 


NO (NO § 
© YES 


// SHA | HALT-< NO 
CCPAUTO 


5 |RACKS-xx 


eee [ ,Pt-xxx | [ .P2-xxx | [ P30 | [ .FS-xxx | 


// SPCYL CYL-xxx 


// SPDSK UNIT-code 


This parameter does not perform any function unless $QCOPY is being executed under control of the communica- 


tions control program (CCP). 
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Function Control! Statements 


Change spooling track 


Group size // SPEXT TRACKS- 


Include page/card count and YES 
form/card type information // SPOPT M- ‘ie \ 
on the spool time message 


MFCU1 
MFCU2 


1 MFCM1 


2 
3 


MFCM2 
DEVICE- 1442 


2501 
CONSOLE 
3741 


3 system input device 


Reassign partition 1, 2, or i svn) 


MFCU1 

MFCU2 

1 MFCM1 
sve 2h DEVICE- ( MFCM2 
3 1442 

3741 

NONE 


Reassign partition 1, 2, or 
3 system punch device 


1 
Reassign partition 1, 2, or _ $1403 
3 system print device HSYPR f DEMIGE pe 


3 
Time stamp |-messages, or ; NO x NO 
YES{ ' YES 


D- and R-messages and their // TSTAMP 
responses 
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PARAMETER SUMMARY 


Parameter 


AUTHORIZE-YES 
-NO 


CARD-xxx 


code-area 


CYL-xxx 


DATE-MMDDYY 
-DDMMYY 


D-NO 
-YES 


DEVICE-MFCM1 
-MFCM2 
-MFCU1 
-MFCU2 
-1403 
-1442 
-2501 
-CONSOLE 
-3284 
-3741 


-NONE 


EJECT/NOEJECT 


4-20 


Description 


Specifies whether authorization is required for $OCOPY. 


Xxx Can be a maximum of three valid IBM System/3 
characters except commas, leading or embedded blanks, 
or apostrophes. 


Possible 5444 unit codes are 
F1, R1, F2, R2 
Possible simulation area codes are 
DiA, D1B, DiC, D1D, 
D2A, D2B, D2C, 02D, 
D3A, D3B, D3C, D3D, D3E, D3F, D3G, D3H, 
D4A, D4B, D4C, D4D, D4E, D4F, D4G, D4H 


Specifies the new total number of cylinders for the spool file. The 
number (xxx) must be from 1 through 166 (3340) or 1 through 
186 (3344). 


Month-day-year 
Day-month-year 


If D-YES is specified, D-(decision) and R-(reply) type 
messages that appear on the system console and their 
responses are time-stamped when entered in the SHA (system 
history area). If D-NO is specified or assumed, D-type 
messages are not time-stamped. 


Primary hopper of 2560 

Secondary hopper of 2560 

Primary hopper of 5424 

Secondary hopper of 5424 

1403 Printer 

1442 Card Read Punch 

2501 Card Reader 

3277 Display Station 

3284 or 3287 Printer 

Directly attached 3741 Data Station/Programmable Work 
Station 

No punch device assigned 


Specifies whether a page is to be ejected before ES and EJ 
and after EJ. 
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Parameter Description 
ERASE-YES Specifies whether SOCOPY (when executed under CCP) is to 
-NO erase the terminal screen after information has been entered on 
the terminal. 
EXTENDED-YES Specifies whether the extended restart function is to be used. 
-NO 
FORM-xxx xxx can be a maximum of three valid IBM System/3 characters 


except commas, leading or embedded blanks, or apostrophes. 


FS-xxx Specifies the new size (a multiple of 2) of the file share area. The 
number (xxx) cannot be less than 2. 


HALT-YES Specifies whether the system is to halt, not halt, or invoke $HACCP 
-NO when a predetermined number of tracks remain in the SHA before 
unprinted entries are overlaid. 


I-NO If 1-YES is specified, |-type (informational) messages that 

-YES appear on the system console are time-stamped when entered in 
the SHA (system history area). If I-NO is specified or assumed, 
|-type messages are not time-stamped. 


IDELETE-YES Specifies whether I-type messages are to be deleted. 
-NO 
M-YES Specifies whether to include the page/card count and the form/card 
-NO type information on the spool message in the system history area. 
OCL-YES Specifies whether the blank OCL function is supported. 
-NO 

PACK-NONE No cataloging to any program pack. 

-CCP Cataloging to the CCP program pack. 

“ALL Cataloging to all program packs. 
PRINT-YES Specifies whether the print writer is to automatically start during 

-NO {IPL (AUTST). Or, specifies whether the print writer is to auto- 


matically start when output is available on the print queue (AUTWT). 
PUNCH-YES Specifies whether the punch writer is to automatically start during 
-NO IPL (AUTST). Or, specifies whether the punch writer is to auto- 


matically start when output is available on the punch queue (AUTWT). 


P1-xxx Specifies the new size (a multiple of 2) of partition 1. The minimum 
size of P1 is 8K. 


P2-xxx Specifies the new size (a multiple of 2) of partition 2. The minimum 
size of P2 (if other than zero} is 8K. 
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Parameter 







Description 






Specifies the new size (a multiple of 2) of partition 3. The minimum 
size of P3 (if other than zero) is 8K. 










RATIO-1 Specifies the ratio of share DTFs to FSQEs in the share area. 








READ-YES Specifies whether the spooled reader is to automatically start after 
-NO an IPL is performed. 










RETAIN-YES Specifies whether to retain the I-type messages that are on the 
-NO console at EJ. 












Specifies the priority limit for the jobs that are placed on the active 
spool file reader queue by $QCOPY. This function is effective only 
when $OQCOPY is executed under control of CCP. 













SEQUENCE: ( P1 rs Specifies the priority of partitions and spool. 
P2 | : ' = 
P3 
SPOOL \ 
\ sP 7 
SHARE-YES Specifies whether file sharing is allowed between partitions 
-NO (FSHARE). Or, specifies whether the console can be shared 
among partitions as an input device (CONSOL). 
t 
| SYS-xxx Specifies the main storage capacity of the system. Possible 
| values for xxx are 96, 128, 160, 192, 224, 256, 384, or 512. 
TRACKS-1 The size of track groups within the spooling disk area. 
-2 
-4 
5 
-10 
TRACKS-xx Specifies the number of tracks in the SHA between the SHA warning 
point and the first unprinted entry. Possible values for xx are 
0 through 10. 
UNIT-code Specifies the main data area that is to contain the spool file. 


} Possible codes are those for the main data areas. 


comma 
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PARAMETER DESCRIPTIONS 
AUTHORIZE Parameter (OQCOPY) 


The AUTHORIZE parameter is associated with the authori- 


zation function of the Spool File Copy program (SQCOPY). 


When AUTHORIZE-YES is specified and SOCOPY is 
executed under CCP, certain functions of $OCOPY cannot 
be executed unless the user is properly authorized. When 
AUTHORIZE-NO is specified, no authorization is required. 
For more information about granting authorization to a 
user, refer to the Spoo/ File Copy program, $QCOPY. 


CARD Parameter (DEFCN) 


The CARD parameter (CARD-xxx) redefines the card type 
that the operator loads into the punch device for the next 
job, xxx can be any three valid System/3 characters (see 
Appendix A) except commas or leading or embedded 
blanks. The CARDNO parameter of a PUNCH OCL state- 
ment can temporarily override this definition. 


Code-Area Parameter (ASNPx) 


Simulation area codes are unique to the type and designa- 
tion of each disk drive. After assignment, the 5444 unit 
code is used to identify the simulation area to be accessed. 
The following chart shows the relationship of the type and 
designation of a disk drive and the simulation area codes. 


Disk Drive 
Type and Designation 


Simulation Area 
Codes 


3340 drive 1 
3340 drive 2 
3340 drive 3 
3340 drive 4 


D1A, D1B, D1C, D1D 
D2A, D2B, D2C, D2D 
D3E, D3A 
D4E,D4A 


3344 drive 3 
Volume 1 
Volume 2 
Volume 3 
Volume 4 


D3E, D3A 
D3F, D3B 
D3G, D3C 
D3H, D3D 


3344 drive 4 
Volume 1 
Volume 2 
Volume 3 
Volume 4 


D4E, D4A 
D4F, D4B 
D4G, D4C 
D4H, D4D 





Restrictions for Assigning Simulation Areas 


Unit codes (F1, R1, F2, and R2) are assigned by partition 
to any of the supported simulation areas. Each unit code 
for a given partition must be assigned to a simulation area. 
Simulation area assignments are set in the configuration 
record during system generation and remain in effect until 
either another system generation is performed that has 
different simulation area assignments or until the configura- 
tion record program ($CNF1G) is used to change the 
simulation area assignments. An ASSIGN statement 
temporarily reassigns the simulation areas for the partition 
in which it is processed until another IPL is performed or 
another ASSIGN statement is processed. 


Refer to the following chart for invalid simulation area 
assignments. 





5444 Unit 
Codes 


Simulation areas that cannot be 
assigned the 5444 unit codes. 


018, 038 


D1A, D3A 
D1A, D1B, D3A, D3B 


D1A, D1B, D3A, D3B 








CYL Parameter (SPCYL) 


The CYL parameter (CYL-xxx) specifies the new total 
number of cylinders assigned to the spool file. The number 
(xxx) must be from 1 through 166 if the spool file is on a 
3340 Direct Access Storage Facility or from 1 through 186 
if the spool file is on a 3344 Direct Access Storage. 


D Parameter (TSTAMP) 


The D-YES parameter specifies that decision and reply type 
messages that appear on the system console and their 
responses are to be time-stamped when entered in the 
system history area. If D-NO is specified or assumed, the 
messages and their responses are not time-stamped. 


The time-stamp record immediately follows the message 
and response. The following example shows the format of 
the time-stamp record: 


2 // LOAD $MAINT,F1 

2 // RUN 

2 AL CORY: oF 

2s 2.LM 6A ST Do 123 $MAINTOI 
2 04/26/78 00.00.59 

222 LM 6A ST D 123 $MAINTO1 
2 04/26/78 00.01.02 


DATE Parameter (FORMAT) 


The DATE parameter redefines the system date format to 
either month-day-year (DATE-MMDDYY) or day-month- 
year (DATE-DDMMYY). 


DEVICE Parameter (LOGPx, SYINx, SYPCx, SYPRx) 


The DEVICE parameter redefines a partition’s assigned log 
device, system input device, system punch device, or system 
print device. 


Valid codes for the partition log device are 3277, 1403, 
3284. An EJECT or NOEJECT parameter can be specified 
with the 1403 or 3284. A LOG OCL statement can over- 
ride this definition. 


Valid codes for the system input device are MFCM1, 
MFCM2, MFCU1, MFCU2, 1442, 2501, 3277, 3741. A 
READER command or READER OCL statement can over- 
ride this definition. 


Valid codes for the system punch device are MFCM1, 
MFCM2, MFCU1, MFCU2, 1442, 3741, or NONE. A 
PUNCH OCL statement can override this definition. 


Valid codes for the system print device are 1403 or 3284. 
A PRINTER OCL statement can override this definition. 


EJECT or NOEJECT Parameter (LOGPx) 


The EJECT or NOEJECT parameter, when included with 
the DEVICE-1403 or DEVICE-3284 parameter of the 
LOGPx statement, specifies whether a page is to be ejected 
before end of step, before end of job, and after end of job. 
A LOG OCL statement can override this specification. 


ERASE Parameter (QCOPY) 


When ERASE-YES is specified and $QCOPY is executed 
under CCP, the screen on the requesting terminal is erased 
before each message is written. When ERASE-NO is speci- 
fied, the information entered on the terminal remains on 
the screen. The operator can erase the screen by pressing 
the ERASE EOF key. 
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EXTENDED Parameter (READY) 


The EXTENDED parameter (EXTENDED-YES or 
EXTENDED-NO) specifies whether the automatic message 
restart function is to be used. This parameter applies only 
to the extended restart function and not to the unit record 
restart function. If used, the system operator need not 
respond with a 1 option to certain system messages. 


Note: This parameter is valid only if the unit record restart 
and/or the extended restart option(s) was selected during 
system generation. 


FORM Parameter (DEFFN) 


The FORM parameter (FORM-xxx) redefines the forms 
type that the operator mounts on the printer for the next 
job. xxx can be any three System/3 characters (see 
Appendix A) except commas or leading or embedded 
blanks. The FORMSNO parameter of a PRINTER OCL 
statement or a CHANGE FRM command can temporarily 
override this definition. 


FS Parameter (SIZE) 


The FS parameter (FS-xxx) specifies the new size (in multi- 
ples of 2K) of the file share area. The size (xxx) cannot be 
less than 2 or greater than the size of main storage minus 
the sum of the amount of main storage assigned to the 
supervisor, partition 1, partition 2, and partition 3. 


HALT Parameter (HLTPx) 

The HALT parameter (HALT-YES or HALT-NO) specifies 
whether the system is to halt a partition for system 
messages (HLTPx). AHALT OCL statement or a HALT 


command can override this definition. 


This HALT parameter functions as an OCL halt and cannot 
be overridden by an OCC NOHALT command. 
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HALT Parameter (SHA) 


The HALT-YES parameter specifies that the system is to 
issue a Message and stop when a predetermined number of 
tracks remain in the system history area before overlay of 
unprinted records occurs. The HALT-NO parameter causes 
no action to be taken when unprinted records in the system 
history area are about to be overlaid. The HALT-CCPAUTO 
parameter specifies that the system is to invoke the $HACCP 
program (if CCP is executing) when a predetermined 
number of tracks remain in the system history area before 
overlay of unprinted records occurs. 


| Parameter (TSTAMP) 


The I-YES parameter specifies that informational type 
messages that appear on the system console are to be time- 
stamped when entered in the system history area. If I-NO 
is specified or assumed, the messages are not time-stamped. 


The time-stamp record immediately follows the message. 
The following example shows the format of the time-stamp 
record: 


2- 2 SP UT FA I 
SPOOL FILE STARTED - OLD,D43,50,5 
2 05/08/78 00.00.17 


IDELETE Parameter (ITYPE) 


The IDELETE parameter (IDELETE-YES or IDELETE-NO) 
specifies whether the system is to automatically delete 
information-type messages that have not been responded 

to. Normally, a response is required to delete these 
messages. An IDELETE or NOIDELETE command can 
override this specification. 
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M Parameter (SPOPT) 


When M-YES is specified, the page count and the forms 
type for print queue job steps are included on the spool 
time message in the system history area. Also, the card 
count and the card type for punch queue job steps are in- 
cluded on the spool time message in the system history 
area, When M-NO is specified, this additional information 
is not included on the spool time message. 


The format of the messages is shown in the following 
examples. 


S SP UT TM ft JOBA IODRVRO1 
12/08/78 00.01.37 00.01.45 PR 
FORM TYPE-10A PAGES-2 


S SPUT TM or | JOBB IODRVRO2 
12/08/78 00.01.46 00.01.59 PC 
CARD TYPE-XYZ CARDS-10 


OCL Parameter (BLANK) 


The OCL parameter (OCL-YES or OCL-NO) specifies 
whether the blank OCL function is to be used. If the 
function is used, all statements entered via the system input 
device (when that device is the system console) are erased 
from the screen when the ENTER key is pressed. 


PACK Parameter (CATLG) 


The PACK-NONE parameter prevents cataloging of an 
object library entry to any simulation area that contains a 
program which another partition has loaded and is currently 
executing. 


The PACK-CCP parameter allows cataloging of an object 
library entry to a CCP program pack even though another 
partition (in addition to the CCP partition) has loaded and 

is currently executing a program from the CCP program pack. 


The PACK-ALL parameter allows cataloging of object 
library entries to all program packs even though one or more 
partitions have loaded programs from them and are currently 
executing those programs. 


For other restrictions, see Library Maintenance Program 
under Multiprogramming Considerations and Restrictions in 
Part 2 of this manual. 


PRINT Parameter (AUTST, AUTWT) 


The PRINT parameter (PRINT-YES or PRINT-NO), when 
used with AUTST, specifies whether the print writer auto- 
matically starts when an IPL is performed. This option 
relieves the operator of having to initially enter an operator 
control command to start the printer when spooling is 
specified. 


The PRINT parameter, when used with AUTWT, specifies 
whether the print writer is to automatically start whenever 
output is available on the print queue. When output is 
not available on the queue, the print writer waits for out- 
put without issuing a message or requiring operator 
interaction. 


PUNCH Parameter (AUTST, AUTWT) 


The PUNCH parameter (PUNCH-YES or PUNCH-NO), 
when used with AUTST, specifies whether the punch 
writer is to automatically start when an IPL is performed. 
This option relieves the operator of having to initially enter 
an operator contro! command to start the punch when 
spooling is specified. 


The PUNCH parameter, when used with AUTWT, specifies 
whether the punch writer is to automatically start when- 
ever output is available on the punch queue. When output 
is not available on the queue, the punch writer waits for 
output without issuing a message or requiring operator 
interaction. 


Note: Punch autostart (// AUTST PUNCH-YES) is valid 
only if reader autostart is not in effect. 
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P1 Parameter (SIZE) 


The P1 parameter (P1-xxx) specifies the new size (a multi- 
ple of 2) of partition 1. The number (xxx) cannot be less 
than 8 or greater than the size of main storage minus the 
sum of the sizes of the supervisor, partition 2, partition 3, 
and the file share area. 


P2 Parameter (SIZE) 


The P2 parameter (P2-xxx) specifies the new size (a multi- 
ple of 2) of partition 2. The number (xxx) cannot be less 
than 8 (if other than zero) or greater than the size of main 
storage minus the sum of the sizes of the supervisor, parti- 
tion 1, partition 3, and the file share area. 


P3 Parameter (SIZE) 


The P3 parameter (P3-xxx) specifies the new size (a multi- 
ple of 2) of partition 3. The number (xxx) cannot be less 
than 8 (if other than zero) or greater than the size of main 
storage minus the sum of the sizes of the supervisor, parti- 
tion 1, partition 2, and the file share area. 
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RATIO Parameter (FSHARE) 


When an IPL is performed or the file share area size is set 
via an OCC command, the share area is initialized according 
to the following specified ratio. 













Share 
Area 

Size 

(K bytes) 








Number 
of 
SDTF 
Blocks! 


2 2 23 24 
4 51 47 
6 71 73 
8 97 93 
3 2 39 19 
4 67 42 
6 86 68 
8 113 88 
4 2 39 19 
4 83 37 
6 119 58 
8 145 78 


' Refer to File Sharing for a description of SDTFs and 
FSOEs. 


Note: \f the RATIO parameter is not specified, a ratio of 
1 is assumed. 


READ Parameter (AUTST) 


The READ parameter (READ-YES or READ-NO) specifies 
whether the spool reader is automatically started when an 
IPL is performed. This option relieves the operator of 
having to initially enter certain operator control commands 
when spooling is specified. (Reader autostart (// AUTST 
READ-YES) is valid only if punch autostart is not in 
effect.) 


RETAIN Parameter (MESSAG) 


When RETAIN-NO is specified, |-type messages are erased 
from the system console screen at EJ. When RETAIN-YES 
is specified, I-type messages are not erased from the system 
console screen at EJ. 
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ROPTY Parameter (QCOPY) 


The ROPTY parameter (ROPTY-O through 5) specifies the 
priority limit of the jobs placed on the active spool file 
reader queue by $OCOPY. (This parameter is effective 
only when $OCOPY is executed under control of CCP.) 
The HIPTY OCC command can be used to temporarily 
override this parameter. For more information about 
reader queue priority, refer to the Spool File Copy program 
($QCOPY). 


SEQUENCE Parameter (PRIORITY) 


The SEQUENCE parameter specifies the priority of the 
partitions and spool. 


The order of the code parameters specifies the priority. 
The leftmost code parameter has the highest priority; the 
rightmost code parameter has the lowest. Two or more 
tasks have equal priority if an equal sign (=) or ahyphen 
(-) is specified between the parameters. 


The following rules apply to the code parameters that can 
be supplied with the SEQUENCE keyword. 


@ Each code parameter can be specified only once. 


@ SPOOL (SP) is an invalid code parameter if spooling is 
not supported, 


@ All code parameters must be specified; there are no 
defaults. 


The folowing examples illustrate these rules: 


SEQUENCE-’P1,P2,P3,SP’ 
SEQUENCE-’P1,P2,P3’ 
SEQUENCE-’P1=P2=P3’ 
SEQUENCE-’P1-P2-P3’ 
SEQUENCE-’SP,P2,P1,P3’ 
SEQUENCE-’P1,P2=P3-SP’ 


@ Only one group of code parameters can be equated. 
For example: 


SEQUENCE-’SP=P3,P2=P1’ 
is not valid, but 
SEQUENCE-’SP-P3-P2-P 1’ 
and 

SEQUENCE.-’SP ,P3=P2=P 1’ 
are valid. 


SHARE Parameter (CONSOL) 


The SHARE parameter (SHARE-YES) specifies that the 
console can be shared by the partitions as a system input 
device. When SHARE-NO is specified, the console cannot 
be shared by the partitions. 


SHARE Parameter (FSHARE) 


The SHARE parameter (SHARE-YES or SHARE-NO) 
specifies whether the system will default to allow file 
sharing between partitions. 


‘SYS Parameter (SIZE) 


The SYS parameter (SYS-xxx) specifies the new main 
storage size for the system. Possible values for xxx are: 
Group 1 Group 2 

96 384 

128 512 

160 

192 

224 

256 


The configuration record program will issue an error mes- 
sage when a value is specified that is not within the same 
group as the current system size. This is because group 1 
and group 2 require different modules to be included in the 
generated supervisor. Therefore, a system generation is re- 
quired when it is necessary to change the system size to a 
value that is not within the same group as the current 
system size. 


TRACKS Parameter (SHA) 


The TRACKS parameter (TRACKS-O through 10) defines 
the SHA warning point. The xx value specifies the number 
of tracks that remain in the SHA between the warning 
point and the first unprinted entry. When xx tracks re- 
main and HALT-YES is specified on the SHA statement, 
the system stops and a message is displayed. When xx 
tracks remain and HALT-NO is specified on the SHA 
statement, the system is not stopped and no message is 
displayed. When xx tracks remain (xx must not be 0) and 
HALT-CCPAUTO is specified on the SHA statement, the 
$HACCP program is invoked (if CCP is executing). For 
information about the $HACCP program, refer to the /BM 
System/3 Communications Control Program System Ref- 
erence Manual, GC21-7620. 
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The number xx must not be greater than one-half the 
number of tracks in the SHA. 


If TRACKS-O is specified, the system assumes a warning 
point of approximately 50 40-byte SHA records. (There 
are 144 40-byte SHA records per track.) 


TRACKS Parameter (SPEXT) 


The TRACKS parameter (TRACKS-nn) changes the size of 
the track groups within the spooling disk area. mn can be 
1,2, 4, 5, or 10. The START command can override this 
definition. 


UNIT Parameter (SPDSK) 


The UNIT parameter (UNIT-code) specifies the new main 
data area to be used for the spool file. Possible codes are 
D1, D2, D3, D31, D32, D33, D34, D4, D41, D42, D43, 
and D44. 


CONSIDERATIONS AND RESTRICTIONS 


@ This program must be executed on a dedicated system 
except when printing the configuration record. 


@ The changes are not effective until an IPL is performed. 


e@ The new configuration record remains in effect until 
another system generation or until it is changed by 
$CNFIG. 


@ The ASSIGN OCL statement can be used to temporarily 
reassign the 5444 unit codes (the configuration record is 
not changed). 


e@ All restrictions that apply to the assignment of 5444 
unit codes and simulation areas during system genera- 
tion also apply for $CNFIG. For these restrictions, see 
Assigning Simulation Areas in Part 3 of this manual. 


@ Only the 5444 unit codes and simulation areas included 


in the control statement are reassigned. Al!l other pre- 
vious assignments remain the same. 
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OCL CONSIDERATIONS 


The following OCL statements are needed to load the con- 
figuration record program: 





The code you supply depends on the location of the simu- 
lation area containing the configuration record program. 
Possible codes are F1, R1, F2, R2. 
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EXAMPLES 


Figures 4-7 through 4-14.2 are examples of the control 
statements needed for various $CNFIG functions. 










nee 
ASNPL HPA Re 












Explanation: 


@ The 5444 unit codes are reassigned for partition 2 
(ASNP2). 


@ The 5444 unit codes are reassigned for partition 1 
(ASNP1). 


@ The 5444 unit codes are reassigned for partition 3 
(ASNP3). 


Figure 4-7. Reassign All 5444 Unit Codes for Three Partitions 





Explanation: 


@ The current configuration record is printed (PRINT). 


@ The 5444 unit code F2 is reassigned to simulation area 
D2C (F2-D2C) for partition 2 (ASNP2). 


@ The revised configuration record is printed (PRINT). 


Figure 4-8. Print the Current Configuration Record (PRINT), 
Reassign a Single 5444 Unit Code in Partition 2 
(ASNP2), and Print the Revised Configuration Record 
(PRINT) 
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Explanation: 


@ All informational messages that appear on the system 
console are time-stamped when they are entered into the 
system history area (I-YES). Decision and reply 
messages and responses are not time-stamped (D-NO}. 
The D-NO parameter can be specified or assumed. 


Figure 4-9. Time-Stamp Only Informational Type Messages 











Explanation: 


@ No informational, decision, or reply messages and 
responses are time-stamped when entered into the system 
history area. 


Figure 4-10. No Messages or Responses are Time-Stamped 

















Explanation: 


@ The 5444 unit code R2 is reassigned to simulation area 
D2D (R2-D2D) for partition 3 (ASNP3). 


@ The PACK-NONE parameter specifies that cataloging is 
not allowed to a simulation area being used as a program 
pack for another partition. 


Figure 4-11. Reassign a 5444 Unit Code and Change the Support 
for Cataloging to a Program Pack 
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Explanation: 


@ The PACK-CCP parameter specifies that cataloging is 
allowed to a CCP program pack. 


Figure 4-12. Change the Support for Cataloging to a Program Pack 


RR RR ERI 
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ei ey 
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Explanation: 


@ The system punch device for partition 1 (SYPC1) will be 
the 5424 secondary hopper (DEVICE-MFCU2). 


® Card type 96C will be the spool default. 


@ The system date is to be entered in the format 24-08-77 
(24 August 1977). 


®@ The system print device for partition 1 (SYPR1) will be 
the 3284 Printer (DEVICE-3284). 


@ Form type STN will be the spool default. 


@ The system will no longer halt when the system history 
area is full. 


Figure 4-13. Reassign System Devices and Output Media 
for Partition 1 
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Explanation: 


@ The system input device for partition 2 (SYIN2) will be 
the 3741 Data Station (DEVICE-3741). 


@ No system punch device (DEVICE-NONE) will be 
assigned to partition 2 (SYPC2). 


@ The log device for partition 2 (LOGP2) will be the 3284 
Printer (DEVICE-3284). The printer page will not eject 
(NOEJECT) at end of step and end of job. 


® With IDELETE-YES, HALT-NO, and EXTENDED-YES, 


the system operator is not required to respond to all 
system messages. 


Figure 4-14. Reassign System and Log Devices for Partition 2 and 
Do Not Require Operator Intervention 
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Explanation: 


@ The input spooling routine (READ-YES) automatically 
starts during an IPL (operator control commands are 
not required). The punch writer (PUNCH-NO) and the 
print writer (PRINT-NO) will not start until the operator 
control commands are entered. 


@ The punch writer (PUNCH-YES) and the print writer 
(PRINT-YES) automatically start (without operator 


control commands) when there is output on the queues. 


@ QCOPY information that is entered at a terminal under 


CCP is not erased from the terminal screen (ERASE-NO). 


® Authorization (AUTHORIZE-YES) is required for those 
users who execute $OCOPY under control of CCP. The 
priority limit (ROPTY-2) of jobs placed on the active 
spool file reader queue by $OCOPY is 2 (SQCOPY must 
be executed under control of CCP). 


@ The number of cylinders assigned to the spool file is 
25 (CYL-25). 


@ The spool file is located on the main data area coded 
D3 (UNIT-D3). 


@ The main storage size of the system is 512K (SYS-512); 
Partition 1 size is 196K (P1-196); file share area size is 
4K (FS-4); partition 3 size is zero (P3-0). Partition 2 is 
not specified and remains unchanged. 


@ The SHA warning message is issued and the system halts 
(if the system is in halt SHA mode) when 2 tracks re- 
main in the system history area before unprinted entries 
are overlaid. 


Figure 4-14.1. Change Spooling Status, QCOPY Options, System 
and Partition Sizes, and SHA Warning Point 


Explanation: 


@ The page/card count and the form/card type are included 
in the spool time messages that are entered in the system 
history area (M-YES). 


@ The console cannot be shared as a system input device 
among partitions (SHARE-NO). 


@ All l-type messages on the system console at end of job 
will be deleted (RETAIN-NO). 


@ Messages are not displayed on the console while ENTER 
READER DATA or ENTER DATA are prompted on 
the console (MESSAGE-NO),. 


@ The priority of the partitions and spool is as follows: 
partition 1 (P1) has the highest priority, partition 2 
(P2), partition 3 (P3), and SPOOL (SP) all have equal 
priority. 


@ The system will invoke $HACCP (HALT-CCPAUTO) 
when 1 track remains in the system history area 
(TRACKS-1) before unprinted entries are overlaid. 


Figure 4-14.2. Change Console Sharing as System Input Device, 
System Messages, System Task Priority, and SHA 
Halt Status 
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Copy/Dump Program—$COPY 

PROGRAM DESCRIPTION 

The copy/dump program has the following functions: 
® Copy an entire main data area or simulation area 
@ Copy a data file 

® Copy and print a data file 

© Copy a data file, but print only a part of the file 
@ Print an entire data file 

@ Print only a part of a data file 

@ Print and copy a part of a data file 

@ Build an indexed file from a sequential file 

® Build a direct file from a sequential file 

@ Recover a file 


This program performs only one function during one execu- 
tion. 


The input file must be described in an OCL FILE statement 
except when the file recovery function is used. The name 
that you supply with the NAME keyword in the FILE 
statement must be COPYIN (NAME-COPYIN). Likewise, 
the output file (except printer output) must be described 

in an OCL FILE statement. The name that you supply 


with the NAME keyword must be COPYO (NAME-COPYO). 


The output file for the IBM 1403 Printer does not require 
an OCL FILE statement. However, if the output is printed 
on an IBM 3284 Printer, you must supply an OCL FILE 
statement. The name of the file must be COPYP (NAME- 
COPYP). 


COPYPACK 


The COPYPACK function copies the contents of a main 
data area to another main data area or copies a simulation 
area to another simulation area. 


COPYFILE 


The COPYFILE functions: 


Process a single input file and write a single output file 
in one execution of the program. 


Copy a file from a simulation or main data area to 
another simulation or main data area. Sequential files 
can be copied consecutively and an index created, thus 
effectively copying a sequential file to an indexed file. 
Also, a sequential file can be copied and a direct file 
created. 


Copy a file to or from magnetic tape, cards, or diskette. 


Print all or part of a file whether it is being copied to 
another file or not. 


Print and/or copy selected records from a file based on 
either the relative record number or a key value. 


Recover a file by using the physical address obtained 
from the VTOC listing. 


Copy a file and change the output file record length. 
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The selection of input and output device is as follows: 






Diskette || Printer File 
File (1403,3284) 


X X Xx 
X X xX 
X x Xx 


X | X 









Disk File 









Sequential 







Indexed 


Direct @® 


Tape File 
Diskette File ® 


Card File 









ae 








MFCU1 


MFCU2 







MFCM1 







MFCM2 








1442 







2501 






® Tape can be 7- or 9-track; 200, 556, 800, or 1600 bpi. 


@) A direct file is considered a sequential file; therefore, the sequential disk file considerations apply. 






@) The output tape file must be on a different drive than the input tape file. 






® Record length can be from 1 to 128 bytes but must be the same for all records in the file. 
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CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the desired results. 


Funcuaai) Control Statewonts 2 


Copy an Entire Area // COPYPACK FROM-code,TO-code[,PACKIN-packname] {[,PACKO-packname] 
// END 
Copy a Data File NO \e 


COPYFILE 
° L \ YES 


OUTPTX-t J FILE, DELETE- 
OUTPUT- } (DISK,$ COMIT- 
[, LENGTH-number] 


; ‘position,character’, REORG- { 


END 


Copy and Print a 
Data File OUTPUT- OMIT- 


[, LENGTH-number] 


cOeVEILE teal ou) pera 


} ‘position,character’, REORG-YES ® 


END 


Copy a Data File, OUTPTX- DELETE- 
But Print Only a PORN RIE: ‘oui Seorh, ‘one 
Part of the File {, LENGTH-number] 
sees Wet oy ea ] Only one SELECT 
PKY TO-‘key’ ,FROM-‘key’ statement for 
sa ,TO-number each COPYFILE 
TO-number fe ROM numbe, statement 


| position character, REORG-YES ® 


SELECT RECORD, { 
END 


Print an Entire 
Data File 


OUTPTX- 


COPYFILE sores 


END 


\ erin 


OUTPTX- 

OUTPUT- \ PRINT 

KEY FROM-‘key’ | [,TO-’key’ Only one SELECT 
PKY TO-‘key’ f ,FROM-‘key’ statement for 


FROM-number } [,TO-number each COPYFILE 
SE Eee RECORD: J oniee nee statement 
END 


Print Only a Part 


of a Data File coPYFiLe{ 


SELECT { 


Print and Copy a FILE 
Part of a Data OUTPTX- DISK 
File SOR bey egeun BOTH 
PRINT 

sence Key FROM-’key \ TO- key Only one 
PKY TO-‘key’ ,-FROM-'key SELECT statement 
FROM-number {| ,7O-number FILE-YES for each COPYFILE 

TO-number ,FROM-number] ' statement 


LLENGTH-number] > [,REORG-YES] 


SELECT RECORD, 
END 


Build an Indexed 
File froma / coPYFILe{ 
Sequential File 


DISK >{,LENGTH-number] 
OUTPUT- BOTH 


// KEY LENGTH-number, LOCATION-number 
// END 


sees PILE 





Copy/Dump Program—$COPY 4-29 


Functions Control Statements 
_———————eeeeeeeeeeeOoeoeoqoeFleqeooooQQooooeeeeeaeaeeee eo 


Build a Direct 
File from a 
Sequential File 


File Recovery 
from Physical 
Address-Simulation 
Area 


File Recovery 
from Physical 
Address — Main 
Data Area 


Change the 
Output File 
Record Length 


ea Ee 


DISK 
OUTPUT- BOTH 


// OUTDM DATAMGMT-DIRECT 
// END 


// COPYFI Le{ [, LENGTH-number] 


/ 


~ 


FILE 
copyrive{ our DISK fen nme 


OUTPUT- BOTH 


// ACCESS FROM-unit,CY LINDER-number, SECTOR-number,DISP-number, RECL-number 
// SELECT RECORD,F ROM-number, TO-number,FILE-YES 
// END 


/ 


~ 


FILE 
COPYFI Le{ cnet DISK [, LENGTH-number] 


OUTPUT- BOTH 


ACCESS FROM-unit,CYLINDER-number, TRACK-number,SECTOR-number,D!SP-number, 
RECL-number 

// SELECT RECORD,FROM-number, TO-number,FILE-YES 

// END 


/ 


~ 


FILE 
OUTPTX- 
penal DISK ?,LENGTH-number 


BOTH 


// coPYFILe 


// END 


@) The program uses include the possible combinations of copying and printing files. 


® For each use, the program requires the control statements in the order they are listed: COPYPACK, END; 
COPYFILE, END; COPYFILE,SELECT,END; COPYFILE,KEY,END; and COPYFI LE,SELECT,KEY,END. 


@ Applies only to indexed files. When OUTPUT-BOTH is specified, REORG-YES is required. 


@ LENGTH parameter is not valid if OUTPTX-PRINT or OUTPUT-PRINT is specified. 
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PARAMETER SUMMARY 


Parameter Description 


COPYPACK Statement 





FROM-code 


TO-code 


PACKIN-packname 


PACKO-packname 


COPYFILE Statement 


OUTPUT-FILE 


OUTPUT-DISK 
OUTPUT-PRINT 
OUTPUT-BOTH ® 
FILE 
DISK 


PRINT 
BOTH 


OUTPTX- 


DELETE-’position, 
character’ 

or 
OMIT-’position, 
character’ 


REORG-NO@) 


REORG-YES @® 


LENGTH-number 


Location of the area to be copied. Possible codes are R1, F1, R2, F2, and 
those for the main data areas. 


Location of the area to contain the copy. Possible codes are R1, F1, R2, F2, 
and those for the main data areas. 


Name of the area to be copied, optionally provided to check for pack ID. 
Verify that correct pack is mounted. 


Name of output area, optionally provided to check for pack 1D. Verify that 
correct pack is mounted. 


Copy the file to the device (tape, cards, diskette, or disk) defined in the 
COPYO FILE statement. ® 


Same as OUTPUT-FILE (allowed for Models 10 and 12 compatibility), © 
Print the entire file or only part of the file. ® 


Copy the file from one device to another or from one location to another 
location on the same area. ® Also print the entire file or only part of it. 


Printed output is to be displayed in hexadecimal values. 


These parameters are optional. All records with the specified character in 
the specified record position are deleted. DELETE causes deleted records 
to be printed; DELETE cannot be used with direct files. If OMIT is used, 
delete records are not printed. Position can be any position in the record 
(the first position is 1, second 2, and so on). The maximum position is 
65535. 


Indexed files only. Copy records as organized in the original file (the file 
from which the records are copied). 


Indexed files only. Reorganize the records so that the records in the data 
portion of the file are in the same order as their keys are listed in the index. 


Used to specify the length of the output file record(s). Length value may be 
any number from 1 through 65535. 
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Parameter Description 


SELECT Statement 






seey FROM-’kev’ Indexed files only. Print or copy only the part of the file from the record 
PKY j’ - key that is specified in the FROM parameter to the end of the file. 






KEY TO-’key’ Indexed files only. Print or copy only that part of the file from the first record 
PKY$’ y key to the key specified in the TO parameter. 






eo EROM-’key’ Indexed files only. Print or copy only the part of the file between the two 
PKY TO-"key’ : record keys that are specified in the FROM and TO parameters (including 

the records indicated by the parameters). To print only one record, make 
the FROM and TO record keys the same. 










RECORD,FROM- Print or copy only the part of the file from the relative record number specified 
number in the FROM parameter to the end of the file. 












RECORD,TO-number Print or copy only that part of the file from the first record to the relative record 
number specified in the TO parameter. 










RECOD,FROM- Print or copy only the part of the file between the relative record numbers 

number, TO-number indicated by the parameters (including the records indicated by the parameter). 
To print only one record, the FROM and TO relative record numbers should 

be the same. 













FILE-YES 





Only selected records are copied to the files named in the COPYO FILE 
statement. 







FILE-NO Only selected records are printed. If copying, al! records are copied. 
OUTPUT-PRINT or OUTPUT-BOTH must be specified if FILE-NO is 
specified. If OUTPUT-PRINT is specified, selected records are printed. 

If OUTPUT-BOTH is specified, selected records are printed and the entire 
file is copied to the file named in the COPYO FILE statement. When a KEY 
statement is used, the output will be an indexed file if the device on the 
COPYO FILE statement is a main data area. 













KEY Statement 





LENGTH-number Identifies the length of the key field. Key length may be 1-29. 









LOCATION-number The starting location in the input record from which the key field is to be extracted! 


Location may be from 1 to 65535. 
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Parameter Description 
eee 


OUTDM Statement 





DATAMGMT-DIRECT Specifies that the output file is to be a direct file. 


ACCESS Statement 


FROM-unit Specifies the simulation area or main data area that contains the file to be 
recovered. 


CY LINDER-number Identifies the cylinder number (1-202) for the beginning of the file. Fora 
simulation area, the number is the quotient obtained by dividing the file 
location (from the $LABEL VTOC printout) by 2. For a main data area, 
the number is given in the file location. 


SECTOR-number For a simulation area, the number can be 0-47. For a main data area, the 
number can be 1-48. 


DISP-number Specifies the displacement, in bytes, from the start of a sector to the beginning 
of a record in the same sector. Number can be 0-255. 


TRACK-number For a main data area. This number can be 0-19. 
RECL-number Record length of file to be recovered. 

@) In the OCL load sequence, you indicate which file is to be copied or printed. For files being copied, you must 
also indicate whether the file is being copied from one device to another or from one location to another on the 


same area, using the COPYIN and COPYO FILE statements. 


(2) REORG-NO is assumed if you omit the REORG parameter. When OUTPUT-BOTH is used for indexed files, 
REORG-YES is required. 


® If message UC3CCS occurs, indicating that there is not enough main storage available to execute the job, consider 
the following: 


@ If you have OUTPUT-BOTH, change to OUTPUT-DISK or OUTPUT-FILE. 
@ If you have REORG-YES, change to REORG-NO. 


@ Set a larger partition size if possible. 
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PARAMETER DESCRIPTIONS 
FROM and TO Parameters (COPYPACK) 


The FROM and TO parameters are used when the copy/ 
dump program is copying the entire contents of one area to 
another. They indicate the locations of the two areas. 


The FROM parameter (F ROM-code) indicates the location 
of the area you are copying. The TO parameter (TO-code) 
indicates the location of the area that is to contain the 
copy. The FROM and TO codes must be for the same type 
of area (simulation or main data). You cannot copy a 
simulation area from or to a main data area. 


Possible codes are R1, F1, R2, F2, and those for the main 
data areas (D1, D2, D3 or D31, D32, D33, D34, D4 or D41, 
D42, D43, D44). 


Copying Entire Area 


When copying an area, the copy/dump program transfers 
the contents of the area to another area. The contents of 
the two areas will be the same, except for the volume labels 
and alternate track information, which may be different. 


The area you are copying can contain libraries or data files 
or both. The area that is to contain the copy must not 
contain libraries, temporary data files, or permanent data 
files. 


Until the contents of the area are completely copied, 
portions of the new area are changed to prevent accidental 
usage of a partially filled area. Therefore, if the copying 
process is stopped before it is completed, the area is un- 
usable. You can restart the copying process by reloading 
the copy/dump program, or you can restore the area by 
reinitializing. 


After a successful copy, the copy program prints a message: 
COPYPACK IS COMPLETE 


Note. \f you copy a simulation area containing an active 
checkpoint, that checkpoint will exist on both the FROM 


and TO simulation areas. When one of the two active check- 


points is utilized to restart the checkpointed program, care 
must be taken to ensure that the job is not restarted a 
second time. It is recommended that you perform an IPL 
and load Restart ($$RSTR) from the pack containing the 
second active checkpoint. If you then select the controlled 
cancel option when the Hnn message occurs (nn is the last 
requested checkpoint number), the checkpoint will be 
deactivated. 
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PACKIN and PACKO Parameters (COPYPACK) 


These two optional parameters are used if you want the 
system to check the volume label of the areas. Either one 
or both may be specified. They are useful if you want to 
verify that the correct area(s) are being used. 


COPYPACK Considerations 


The following considerations apply when you use the 
COPYPACK statement: 


@ If you are copying files from a main data area on a 3344 
to a main data area on a 3340, an IS message occurs if 
files are allocated on cylinders 167—186 of the 3344. 
Only cylinders O—166 are copied to the 3340. 


@ If you are copying files from a main data area on a 3340 
to a main data area on a 3344, only cylinders O—166 are 
copied to the 3344. 


@ $COPY cannot copy an area that has active files unless 
they are files being accessed for input only. 


OUTPUT Parameter (COPYFILE) 


The OUTPUT parameter is used when the program is copy- 
ing and printing card, tape, diskette, or disk data files. It 
indicates whether you want the program to copy, print, or 
copy and print a file. The OUTPTX parameter can be used 
to display printed output in hexadecimal values. 


The parameter OUTPUT-DISK or OUTPUT-FILE is used to 
copy the file; OUTPUT-PRINT is used to print the file; and 
OUTPUT-BOTH is used to copy and print the file. 


Copying Files 


The copy/dump program can copy a file from one device to 
another. These devices can be disk, tape, card, or diskette. 
The copy/dump program can also copy a file from one loca- 
tion to another location on the same volume. 


The OCL load sequence for the copy/dump program indi- 
cates (1) the name and location of the file being copied, and 
(2) the name and location of the copy being created. (See 
OCL Considerations in this section.) 


In copying a file, the program can omit records. (See the 
description of the DELETE parameter for more informa- 
tion.) 


In copying an indexed file, the program can reorganize 
records in the data portion such that they are in the same 
order as their keys are listed in the index. (See the descrip- 
tion of the REORG parameter for more information.) 


In copying an indexed file, the copy/dump program will: 


@ Copy the data and the entire index intact if you supply 
only the COPYFILE control statement and only the 
parameter OUTPUT-DISK or OUTPUT-FILE. 


®@ Copy the data and create a new index if you supply 
more than one control statement (COPYFILE must be 
included and REORG-NO specified or assumed). 


@ Copy the data and create a new index if you supply only 
the COPYFILE control statement and the following 
parameters: OUTPUT-DISK or OUTPUT-FILE, 
REORG-NO (can be supplied or assumed), and one or 
more parameters that are applicable to the COPYFILE 
statement. 


If you suspect that a problem exists with an index and the 
problem can be corrected by the COPYFILE control 
statement, you should code the control statement(s) so that 
the desired function is performed. 


Printing Files 


The program can print all or part of a data file. To print 
only part, the program needs a SELECT control statement. 
(See the description of the SELECT control statement 
Parameters in this section.) If you do not use a SELECT 
statement, the entire file is printed. 


If the output is to be printed on the 3284 Printer, a 
COPYP FILE statement must be entered. If the COPYP 
FILE statement is not entered, the output will be printed 
on the 1403 Printer. 


If you use SELECT KEY (PKY), or REORG-YES, records 
from indexed files are printed in the order their keys appear 
in the index portion of the file; otherwise, they are printed 
as they appear in the file. For each record, the program 
prints the record key followed by the contents of the 
record. 


Records from sequential and direct files are printed in the 
order they appear in the file. For each record, the program 
prints the relative record number followed by the contents 
of the record. 


The program uses as many lines as it needs to print the 
contents of a record. Appendix A lists the hexadecimal 
representation for characters in the standard character set. 


The following is an example of the way the program prints 
hexadecimal numbers using OUTPTX: 


ABCDE GHIJ12345 
CCCCCBCCCDFFFFF 4444444 
1234567891123450000000 


The hexadecimal number B6 represents a character that has 
no print symbol. 


After printing the last record, the printer triple spaces and 
prints the following message: 


(number) RECORDS PRINTED 
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DELETE Parameter (COPYFILE) 


In copying a data file, the copy/dump program can omit 
records of one type. The DELETE parameter identifies the 
type of record. Use of the DELETE parameter is optional. 
If you do not use it, no records are deleted. DELETE can- 
not be used with direct files. 


The form of the parameter is DELETE-‘position,character’. 
Position is the position of the character in the records. 
Character is the character, except for apostrophes, blanks, 
or commas, that identifies the record. For example, with 
the parameter DELETE-‘100,R’ all records with an R in 
Position 100 are deleted. By specifying the hexadecimal 
code for the character, you can use any character (including 
apostrophes, blanks, commas, and packed data) to identify 
the records to be deleted. For example, with the parameter 
DELETE-‘100, X40’, all records with a blank (hexadecimal 
40) in position 100 are deleted. 


Deleted records are always printed. If you are both copy- 
ing and printing a data file, deleted records are printed with 
the other records that are printed. The deleted records are 
preceded by the word DELETED. 


The OMIT keyword can be used instead of DELETE. The 
deleted records are not printed if OMIT is used. 


The records are deleted only from the copied file. The 
original file is not affected. 


REORG (Reorganize) Parameter (COPYFILE) 


In copying an indexed file, the program can reorganize the 
file so that the records in the data portion are in the same 
order as their keys in the file index. The REORG param- 
eter indicates whether the file should be reorganized. If you 
warit a file reorganized, ure REORG-YES. Otherwise, use 
REORG-NO. REORG-NO is assumed if you omit the 
parameter. 


if REORG-YES is specified, the reorganization applies to 
the copy of the file rather than the original file. The 


original file is not affected. 


Reorganization (REORG-YES) is required when you are 


both copying and printing an indexed file (QUTPUT-BOTH). 
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LENGTH Parameter (COPYFILE) 


This parameter is used to specify the length of the output 
records when a file is copied or the file type is changed. 
The resulting records will contain blanks or be truncated on 
the right. This parameter cannot be specified if the output 
is only printed. 


KEY and PKY Parameters (SELECT) 


The SELECT KEY and SELECT PKY parameters apply to 
selecting part of an indexed file. The SELECT PKY param- 
eter applies to selecting part of an indexed file that contains 
packed keys. The parameters are FROM and TO. 


The FROM parameter (FROM-’key’) gives the key of the 
first record to be selected. The TO parameter (TO-‘key’) 
gives the key of the last record to be selected. The record 
keys between those two in the file index identify the 
remaining records to be selected. If you want to select only 
the one record, use the same record key in both the FROM 
and TO parameters. 


For example, the parameters FROM-‘000100’ and 
TO-‘000199’ mean that records identified by keys 000100 
through 000199 are to be selected. 


If the file index does not contain the key you indicate in a 
FROM parameter, the program uses the next higher key in 
the index. 


If the key in the FROM parameter is higher than the highest 
key in the indexed file, the highest key and record in the 
file will be printed (print-only function). For example, 
assume the following statement: 


// SELECT KEY,FROM-‘7000',TO-’7000' 


If the highest key in the indexed file is 6955, then record 
6955 is printed. 


If the TO parameter is omitted, the program assumes that 
the last key in the index is the TO key. 


If the FROM parameter is omitted, the program assumes 
that the first record key is the FROM key. 


You can use fewer characters in the FROM or TO parameter 
than are contained in the actual keys; when keys are packed, 
however, you must use the same number of characters as 
contained in the actual keys. If you use fewer characters, 
the program ignores the remaining characters in the record 
key. The number of characters used in the FROM and TO 
Parameters need not be the same. 


For example, assume that the following are consecutive 
record keys in an index: A1000, A1119, A1275, A1900, 
A1995, A2075, and 99999. The parameters FROM-’A1’ 
and TO-‘A199’ refer to record keys A1000 through A1995. 


If none of the keys in the file index begin with the charac- 
ters you indicate in a FROM parameter, the program uses 
the key beginning with the next higher characters in the 
FROM parameter. 


For example, assume that four consecutive record keys in 
an index begin with these characters: A1, A2, A8, and B1. 
The parameters FROM-‘A3’ and TO-’AQ’ refer to keys 
beginning with the characters A8. 


RECORD Parameters (SELECT) 


The SELECT RECORD parameters can apply to any file 
but are normally used for sequential and direct files. These 
parameters use relative record numbers to identify the 
records to be selected. 


Relative record numbers identify a record’s location with 
respect to other records in the file. The relative record 
number of the first record is 1, the number of the second 
record is 2, and so on. 


The SELECT RECORD parameters are FROM and TO. 
The FROM parameter (F ROM-number) gives the relative 
record number of the first record to be selected. The TO 
parameter (TO-number) gives the number of the last record 
to be selected. Records between those two records in the 
file are also selected. 


For example, the parameters FROM-1 and TO-30 mean 
that the first 30 records (1-30) in the file will be selected. 


If the TO parameter is omitted, the program assumes that 
the number of the last record in the file is the TO number. 
If the FROM parameter is omitted, the program assumes 
that the first record in the file is the FROM number. If you 
want to select only one record, use the same number in the 
FROM and TO parameters. 


Both parameters, FROM and TO, are required when the 
ACCESS statement is specified. 
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During a single execution of $COPY, the records of an 
indexed file cannot be both reorganized (REORG) and 
selected by relative record number (SELECT). 


FILE Parameter (SELECT) 


This parameter allows only selected records to be copied to 
a disk, tape, cards, diskette, or printer. 


LENGTH and LOCATION Parameters (KEY) 


The KEY statement is used when the program is to build an 
indexed file from a sequential file. The LENGTH param- 
eter specifies the length (1—29) of the key field. The 
LOCATION parameter specifies the starting location 
(1—65535) of the key field in the input record. When the 
KEY statement is used, the file described in the COPYO 
FILE statement must be a disk file and OUTPUT-DISK, 
OUTPUT-FILE, or OUTPUT-BOTH must be specified in the 
COPYFILE control statement. A $INDEX45 or $INDEX40 
work file can be included if the KEY statement is used. 


DATAMGMT Parameter (OUTDM) 


This parameter allows the creation of a direct file (disk) 
from sequential input (card, tape, disk, diskette). 


FROM Parameter (ACCESS) 


This parameter identifies the area (simulation or main data) 
that contains the file to be recovered. Possible unit codes 
are R1, F1, R2, F2, and those for the main data areas. 


CYLINDER Parameter (ACCESS) 


The cylinder number specified in this parameter indicates 
the starting location of the file. For a simulation area, the 
number can be 1—202 and is the quotient obtained by divid- 
ing the file location! by 2. For a main data area, the 
number can be 1—166 (186 for 3444) and is indicated by the 
file location’. 


SECTOR Parameter (ACCESS) 

This parameter specifies the sector that contains the first 
record to be copied (recovered). For a simulation area, the 
number can be O—47. For a main data area, the number 


can be 1—48. 


1 File location is obtained from the $LABEL printout of the VTOC. 
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TRACK Parameter (ACCESS) 


This parameter is used for a main data area. The number 
can be O—19 and is specified by the file location! . 


RECL Parameter (ACCESS) 


This parameter identifies the record length of the data in 
the file to be recovered. 


DISP Parameter (ACCESS) 


This parameter specifies the displacement from byte 0 of a 
sector to the first byte of a record. Displacement is counted 
in bytes from the first byte (byte 0) of the sector. Because 
a sector contains 256 bytes, the displacement number 

must be 0—255. 


COPYING MULTIVOLUME FILES 


When you copy multivolume files, the first volume of the 
input file has to be online when the job is initiated. The 
output file must be a new file. If either condition is not 
satisfied, a message occurs. 


Maintaining Proper Volume Sequence Numbers 


To maintain proper volume sequence numbers when copy- 
ing a multivolume file, you must either copy all the volumes 
of the file in one run or copy only one volume for each run 
of $COPY. For example, if you copy a three-volume file 
one volume at a time (volume 1 in the first run, volume 2 in 
the second run, and volume 3 in the third run), the volumes 
will retain their original sequence numbers in the output 
file. Or if you copy all the volumes (1, 2, and 3) in the 
same run, the volume sequence numbers in the new file will 
be the same as in the original file. However, if you copy 
only volumes 2 and 3 in one run, their volume sequence 
numbers will be changed to 1 and 2 in the output file. 


$COPY ensures that all volumes of a multivolume file have 
the same date in the following manner. If only one volume 
of a multivoiume file is copied for each run of $COPY, the 
new file will assume the same date as the input file. If all 
volumes or, as in the example above, volumes 2 and 3 of a 
three-volume file are copied in a single run, the new file 
will assume the current partition date. 


File location is obtained from the $LABEL printout of the VTOC. 
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Maintaining Correct Relative Record Numbers 


To maintain correct relative record numbers when copying 
one volume of a multivolume direct file, you must keep the 
size of the output volume the same as the size of the input 
volume. (If you want to increase the size of a file, you 
must copy the entire file.) If you copy the first volume of 
a two-volume file and increase the number of records on 
that volume, you are also increasing relative record numbers 
of all the records on the next volume. Therefore, to main- 
tain the correct relative record numbers, output and input 
volume extents (records or tracks) must be equal if you are 
copying only one volume of a muitivolume direct file. 


Direct File Attributes 


If you copy an entire multivolume direct file in one run, 
the output file will be given sequential attributes in the 
volume table of contents (VTOC). However, this does not 
affect file processing. A file with either sequential or direct 
attributes can be accessed by a consecutive or random 
access method. If only one volume is copied, the direct 
attribute will be maintained. 


Copying Multivolume Indexed Files 


If you want to copy an indexed multivolume file, REORG- 
YES must be specified in the COPYFILE statement. Since 
an unordered load to a muitivolume indexed file is not 
permitted, a REORG-NO causes a system message to be 
issued. If you would prefer not to reorganize the file it 
must be copied one volume at a time. When you are copy- 
ing one volume at a time, the HIKEY on the output volume 
must be the same as the HIKEY on the input volume. If 
they are not equal, a system message occurs. Making the 
HIKEYs the same ensures that both the input and output 
volumes are the same length and no records will be lost. 
When you are copying one volume of a multivolume 
indexed file, either REORG-YES or REORG-NO may be 
specified. 


TAPE FILE CONSIDERATIONS 


When copying or printing tape data files, you must describe 
the tape file being copied or printed and describe the file 
being created. The various tape record formats and jabels 
are supported. 


$COPY supports single volume tape files, multivolume tape 
files, and multifile tape volumes. For a detailed description 
of the FILE statement Parameters, see the appropriate 
FILE statement in Part 1 of this manual. 


The tape file can be ASCII or EBCDIC. Default for record 
format (RECFM) is fixed length. On a nonlabeled tape, 
record length (RECL) and block tength (BLKL) must be 
specified. 


$COPY wil! not copy any data records from a null file to 
an unlabeled tape. Therefore, when files are added toa 
multifile tape and a null file is detected, the sequence 
number for the next file(s) added to the tape is 1 less than 
the value specified. See Nu// Files On Tape for additional 
information. 


You must be careful when copying a tape file with variable 
length records to disk or tape. The resulting file will 
contain fixed length records with a record length equal to 
the longest record length of the file copied from. Records 
copied with short record lengths will have invalid informa- 
tion in the unused portion of the output record. 
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DISKETTE FILE CONSIDERATIONS 


When copying or printing diskette data files, you must 
describe the diskette file being copied or printed and the 
file being created. (See F/LE Statement [Device Indepen- 
dent Files] .) 


The RECL parameter identifies the record length for the 
diskette file and is any number from 1 to 128. If this 
parameter (RECL) is not used, the default is 96. 


When the 3741 is used as an input or output device, the 
number specified in the RECL parameter must be equal to 
the record length in the data set label on the diskette and 
may be any number from 1 through 128. 


When the 3741 is used for output and the input is from 
disk, card, or tape, the number specified in the RECL 
parameter can be any number from 1 to 128 regardless of 
the record length of the disk, card, or tape file being 
copied. However, if the record length from disk, card, or 
tape is less than the record length specified, the remainder 
of the record is filled with blanks (X‘40’). If the record 
length from disk, card, or tape is greater than the record 
length specified in the RECL parameter, the record is 
truncated on the right. 


Note: The following card input considerations also apply 
for the 3741. 
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CARD INPUT CONSIDERATIONS 


For card input files, end-of-file is determined by the pres- 
ence of a card with /* in columns 1 and 2, and with the 
remaining columns blank. This allows a card input file to 
contain /* cards, assuming that at least one punch is in 
columns 3—80 or 3-96. A /& or /. is handled the same as a 
/* card, unless the input device is the system reader. 


The following chart shows the results obtained from having 
acard with a /*, /&, or /. in columns 1 and 2. 


Not 
Partition 
Reader 


Card 
Columns 
1and2 


Card Does | 
Not Have 
Comments 


Card Has 
Comments 


Not 
Spooled 


Partition 


Reader Spooled 


Note: Reading from the spool reader queue that is not the 
partition reader is not recommended. 
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Card is processed as a data card 
End of file occurs 

Card is processed as a data card 
End of file occurs 

Card is processed as a data card 
End of file occurs 

Card is processed as a data card 
End of file occurs 

Card is accepted as data but end 
of file occurs (additional 

data cards are not processed) 
End of file occurs 

Card is accepted as data but end 
of file occurs (additional 

data cards are not processed) 
End of file occurs 

Card is accepted as data card 
End of file occurs 

Card is accepted as data card 
End of file occurs 

Card is accepted as data but end 
of file occurs (additional 

data cards are not processed) 
End of file occurs 

Card is accepted as data but end 
of file occurs (additional 

data cards are not processed) 
End of file occurs 

Card is accepted as data card 
End of file occurs 

Card is accepted as data card 
End of file occurs 





CARD OUTPUT CONSIDERATIONS 


If the input record size (in bytes) is greater than the size of 
the card (80 or 96 columns), the input record will be 
truncated. Only the first 80 or 96 positions of the record 
will be punched. If the input record size is less than the 
size of the card, the unused part of the card will contain 
blanks. !f the input file contains 60-byte records, the card 
will be blank in columns 61—80 or 61—96. With punched 
output, the entire card contains user data; control informa- 
tion is not punched. 


FILE RECOVERY CONSIDERATIONS 


The ACCESS and SELECT control statements are used to 
recover indexed, direct, and sequential files. Information 
regarding the record count, record length, file location, and 
start of data (indexed files only) for each file to be re- 
covered is obtained from the current VTOC printout. For 
information regarding the VTOC printout, refer to File and 
Volume Label Display Program—$LABEL. 


The method for determining the first recoverable record 
location is generally trial and error. You should always 
attempt to recover the first record of the file. If unsuccess- 
ful, proceed to the next record. Repeat this procedure 
until the first recoverable record is found. 


When records are added to a sequential disk file, the VTOC 
is updated at end of job with a new end-of-file pointer. If, 
for some reason, the program adding the records is abnor- 
mally terminated, the VTOC is not updated and the added 
records are lost. However, you can use the copy/dump 
program to retrieve the added records as follows: 


@ Use the ACCESS control statement to specify the begin- 
ning of the file, and 


@ Use the SELECT control statement to specify the 
number of records in the original file plus the number 
of added records. 


This procedure causes the original records plus the retrieved 
records to be copied to a new file and a new VTOC entry 
created. 


Note: Do not include a FILE statement with NAME- 
COPYIN specified when the ACCESS statement is used. 


For information about how to copy a file index or create a 
new file index, refer to Copying Files under Copy/Dump 
Program. 
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OCL CONSIDERATIONS 


The following OCL statements are needed to load the copy/ 
dump program, if you are using the program to copy an 
entire area: 


// LOAD $COPY code 
// RUN 


The code you supply depends on the location of the simula- 
tion area containing the copy/dump program. Possible 
codes are R1, F1, R2, F2. 


The following OCL statements are needed to do COPYFILE 
functions: 


// LOAD $COPY,code 

// FILE NAME-COPYIN,parameters (required except 
when the 
ACCESS state- 
ment is used) 
(optional 
statement) 
(optional 
statement) 


// FILE NAME-COPYO,parameters 
// FILE NAME-COPYP,parameters 
// RUN 


For information on the FILE statement parameters, see 
OCL Statements in Part 1 of this manual. 


The UNIT parameter is required on each entered FILE 
statement. The allowable UNIT codes are: 


FILE Statement 
COPYIN | COPYO | COPYP 





Unit Code 




















3741 
MFCU1 
MFCU2 
MFCM1 
MFCM2 
1442 
2501 
1403 
3284 
R1, F1, R2, F2 
D1, D2, D3 or D31 
D32, D33, D34 
D4 or D41 

D42, D43, D44 
T1, T2, T3, T4 












x «KK KK XK 





Note: During execution of $COPY, the 3741 or 1442 can- 
not be assigned both input and output. 
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EXAMPLES 






peel ETE 


Figures 4-15 through 4-20 are examples of the OCL state- 
ments and control statements needed to copy an entire 
area, copy a file from one area to another area, and print 
part of a file. 











Figures 4-21 through 4-37 are examples of the OCL state- 
ments and control statements needed to: Explanation: 


® Copy a file from disk to tape The copy/dump program is loaded from F1. 
Figure 4-15. OCL Load Sequence for Copying an Entire Area 


® Copy a file from tape to disk, printing part of the file 


® Copy a file from tape to tape, selecting records to be 
copied 


® Copy acard file to tape 

®@® Copy a disk file to cards 

® Copy a disk file to diskette 

© Copy a tape file to diskette, printing part of the file 

® Copy and print a portion of a file from diskette to disk 
®@ Copy a card file to a diskette, printing the entire file 

®@ Copy and print a portion of a file from diskette to cards 
@ Copy a card file to another card file 

@ Print a disk file on the 3284 


@ Copy a card file to a disk file and change the output 
record length 


® Build a direct disk file from sequential tape input 
@ Recover a disk file from a simulation area 
@ Recover a disk file from a main data area 


®@ Copy a sequential file from a simulation area to a main 
data area and create an indexed output file 


442 














Explanation: 


The COPYPACK statement copies the contents of simula- 
tion area F2 (FROM-F2) with volume identification 
F2F2F2 (PACKIN-F2F2F2) onto simulation area R2 
(TO-R2) with volume identification R2R2R2 (PACKO- 
R2R2R2). 


Figure 4-16. Control Statements for Copying an Area 


























Explanation: 


® Copy/dump program is loaded from F 1. 


® Input file (OCL sequence): 
— The name that identifies file is MASTER 
(LABEL-MASTER). 
— Main data area D1 contains the file (UNIT-D1). Its 
name is A1 (PACK-A1). 


® Output file (OCL sequence): 
— The name to be written to identify the file is BACKUP 
(LABEL-BACKUP). 
— The area that is to contain the file is the main data 
area D2 (UNIT-D2). The pack name is B2 (PACK-B2). 
— The file is to be permanent (RETAIN-P). 
— The size of the file is 50 tracks (TRACKS-50). 


Figure 4-17. OCL Load Sequence for Copying a File from One Area 
to Another 
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Explanation: 


The COPYFILE statement tells the program to create the 
output file using all the data from the input file. The out- 
put file is a copy of the input file. 


Figure 4-18. Control Statements for Copying a File from One Area 
to Another 
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Explanation: 
@ Copy/dump program is loaded from F1. 


@ Input file (OCL sequence): 
— The name that identifies the file is BACKUP 
(LABEL-BACKUP). 
— The area that contains the file is the main data area 
on drive 1 (UNIT-D1). Its name is B2 (PACK-B2). 


Figure 4-19. OCL Load Sequence for Printing Part of a File 

















Explanation: 


@ The file is being printed (COPYFILE statement). 


@ The file is an indexed file. The part being printed is 
identified by the record keys from ADAMS to BAKER 
in the index (SELECT statement). 


Figure 4-20. Control Statements for Printing Part of a File 
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Explanation: 


® Copy/dump program is loaded from F1. 


® input file (OCL sequence): 
— The name that identifies the file is MASTER 
(LABEL-MASTER). 
— The area that contains the file is the main data area 
on drive 1 (UNIT-D1). Its name is D1D1D1 
(PACK-D1D101). 


® Output file (OCL sequence): 

~ The name to be written on tape to identify the file is 
BACKUP (LABEL-BACKUP). 

~ The tape unit that is to contain the file is tape unit 1 
(UNIT-T1). Its name is T1T1T1 (REEL-T1T1T1). 

— The record format used is fixed length, unblocked 
records (RECFM-F). The record length is 80 
(RECL-80). 


® Control statement explanation: 


The entire file named MASTER is copied to tape unit 1 
(OUTPUT-FILE). 


Figure 4-21. OCL and Control Statements to Copy a Disk File toa 
Tape File 
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Explanation: 


® Copy/dump program is loaded from F1. 


@ Input file (OCL sequence): 
— The name that identifies the file on tape is BACKUP 
(LABEL-BACKUP). 
— The tape that contains the file is tape unit 1 
(UNIT-T1). Its name is T1T1T1 (REEL-T1T1T1). 
— The record format of the file is fixed length, un- 
blocked records (RECFM-F). 


@ Output file (OCL sequence): 

— The name to be written to identify the file is 
MASTER (LABEL-MASTER). 

— The area that is to contain the file is the main data 
area on drive 2 (UNIT-D2). Its name is D2D2D2 
(PACK-D2D2D2). 

— The file is to be permanent (RETAIN-P). 

— The size of the file is 30 tracks (TRACKS-30). 


®@ Control statement explanation: 
~— The entire file is copied from tape to disk 
(OUTPUT-BOTH). 
— The records 10 through 100 are printed (RECORD, 
FROM-10, TO-100). 


Figure 4-22. OCL and Control Statements to Copy a Tape File to a 
Disk File and Print a Part of the File 
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Explanation: 


® Copy/dump program is loaded from F1. 


® Input file (OCL sequence): 

— The tape that contains the file is tape unit 1 
(UNIT-T1). 

— The tape being copied is an unlabeled tape 
(REEL-NL); therefore, record format (RECFM-FB), 
record length (RECL-96), and block length 
(BLKL-960) are specified. 

® Output file (OCL sequence): 


— The tape unit that is to contain the file is tape unit 2 
(UNIT-T2). 

— No label is used on the output tape (REEL-NL). 

— The record format is fixed length, unblocked 
(RECFM-F). 


® Control statement explanation: 
— Records 20 to 200 are copied (FILE-YES). 
— No records are printed (OUTPUT-FILE). 


Figure 4-23. OCL and Control Statements to Copy a Tape File to a 
Tape File and Select Records to be Copied 
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Explanation: 
® The copy/dump program is loaded from F1. 
® Input file (OCL sequence) 


The primary hopper of the 5424 MFCU contains the 
input file (UNIT-MFCU1). 


® Output file (OCL sequence): 

— The name to be written on tape to identify the file is 
BACKUP (LABEL-BACKUP). 

— The tape unit that will contain the file is tape unit 1 
(UNIT-T1). its name is T1T1T1 (REEL-T1T171). 

— The record format used is fixed length, blocked 
records (RECFM-FB). The record length will be 96 
(RECL-96); the block length will be 960 (BLKL-960). 


@ Control statement explanation: 


The entire card file will be copied to tape unit 1 
(OUTPUT-FILE). 


Figure 4-24, OCL and Control Statements to Copy a Card File to a 
Tape File 
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Explanation: 
® The copy/dump program is loaded from F1. 
@ Input file (OCL sequence): 
— The name that identifies the file is MASTER 
(LABEL-MASTER). 
— The area that contains the input file is R1 (UNIT-R1). 
The area name is R1R1R1 (PACK-R1R1R1). 
@ Output file (OCL sequence): 
The 1442 will contain the output file (UNIT-1442). 


® Control statement explanation: 


The entire disk file named MASTER will be punched 
into cards by the 1442 (OUTPUT-FILE). 


Figure 4-25. OCL and Control Statements to Copy a Disk File to a 
Card File 
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Explanation: 


@ The copy/dump program is loaded from F1. 


@ Input file (OCL sequence): 
— The name that identifies the file is MASTER 
(LABEL-MASTER). 
— The area that contains the file is D1 (UNIT-D1). Its 
name is D1D1D1 (PACK-D1D1D1). 


® Output file (OCL sequence): 
— The output file is contained on diskette (UNIT-3741). 
— The record length specified in the 3741 data set label 
is 100 (RECL-100). 


® Control statement explanation: 


The entire disk file named MASTER will be copied to 
the 3741 diskette (OUTPUT-FILE). 


Figure 4-26. OCL and Control Statements to Copy a Disk File to a 
3741 Diskette 
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Explanation: 


@ The copy/dump program is loaded from F1. 


® Input file (OCL sequence): 
— The name that identifies the file on tape is MASTER 
(LABEL-MASTER). 
— The tape that contains the file is tape unit 1 
(UNIT-T1). Its name is PAYROL (REEL-PAYROL). 
— The record format of the file is fixed length, 
unblocked records (RECFM-F). 


® Output file (OCL sequence): 
— The output file is contained on diskette (UNIT-3741). 
— The record length specified in the 3741 data set label 
is 96 (RECL-96). 


® Control statements explanation: 
— The entire file is copied from tape to the 3741 
(OUTPUT-BOTH). 
— Records 4 through 120 are printed 
(RECORD,FROM-4,TO-120). 


Figure 4-27. OCL and Control Statements to Copy a Tape File to a 
Diskette File and Print a Part of the File 
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Explanation: 
@ The copy/dump program is loaded from F1. 


@ Input file (OCL sequence): 
— The input file is contained on diskette (UNIT-3741). 
— The record length specified in the 3741 data set label 
is 50 (RECL-50). 


© Output file (OCL sequence): 

— The name of the output file is SALES 
(LABEL-SALES). 

— The area that is to contain the file is main data area 
on drive 2 (UNIT-D2). Its name is D2D2D2 
(PACK-D2D2D2). 

— The file is to be temporary (RETAIN-T). 

— The size of the file is 15 tracks (TRACKS-15). 


® Control statements explanation: 


Records 5 to 250 are copied (FILE-YES) and printed 
(OUTPUT-BOTH). 


Figure 4-28. OCL and Control Statements to Copy a Diskette File 
to a Disk File and Print Only the Copied Records 
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Explanation: 
@ Copy/dump program is loaded from F1. 
@ Input file (OCL sequence): 


The primary hopper of MFCU (5424) contains the input 
file (UNIT-MFCU1). 


® Output file (OCL statement): 


— The output file is contained on diskette (UNIT-3741). 


— The record length specified in the 3741 data set label 
is 96 (RECL-96). 


® Control statement explanation: 


The entire card file from the MFCU1 is copied to the 
3741 and printed (OUTPUT-BOTH). 


Figure 4-29. Control Statement to Copy a Card File to a Diskette 
and Print the Entire File 
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Explanation: 


® Copy/dump program is loaded from F1. 
® Input file (OCL sequence): 
— The input file is contained on diskette (UNIT-3741). 
— The record length specified in the 3741 data set label 
is 128 (RECL-128). 
@ Output file (OCL sequence): 
The 1442 contains the output file (UNIT-1442). 


® Control statement explanation: 


Records 16 through 67 are copied (FILE-YES) to the 
1442 and printed (OUTPUT-BOTH). 


Figure 4-30. Control Statements to Copy and Print a Portion of a 
File on a Diskette to a Card Device 
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Explanation: 


Copy/dump program is loaded from F1. 

Input file (OCL sequence): 

The 1442 contains the input file (UNIT-1442). 
Output file (OCL sequence): 


The secondary hopper of the MFCU contains the output 
file (UNIT-MFCU2). 


Control statement explanation: 


The entire file is copied to the MFCU2. 


Figure 4-31. Control Statement to Copy a Card File to Another 


Card File 
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Explanation: 


@ The copy/dump program is loaded from F1. 


®@ Input file (OCL sequence): 


— The name that identifies the file is MASTER 


(LABEL-MASTER). 
— The area that contains the file is the simulation area 


Its name is R1R1R1 


R1 (UNIT-R1). 


(PACK-R1R1R1). 


® Output file (OCL sequence): 


The unit that will contain the file is the 3284 
The entire disk file named MASTER will be printed on 
unit 3284 (OUTPUT-PRINT). 


(UNIT-3284). 
Figure 4-32. OCL Control Statement to Print a Disk File on the 


®@ Control statement explanation: 


3284 
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Explanation: 


The copy/dump program is loaded from F1. 
Input file (OCL sequence): 
The 1442 contains the input file (UNIT-1442). 


Output file (OCL sequence): 

— The name to be written to identify the file is SALES 
(LABEL-SALES). 

— The area that is to contain the file is the simulation 
area R1 (UNIT-R1). Its name is R1R1R1 
(PACK-R1R1R1). 

— The file is to be permanent (RETAIN-P). 

— The size of the file is 10 tracks (TRACKS-10). 


Control statement explanation: 


The entire file will be copied to disk and printed 
(OUTPUT-BOTH) and the output record length will be 
96 (LENGTH-96). Without the length parameter, 
output record length would be 80 (same as for 1442). 


Figure 4-33. OCL and Control Statements to Copy a Card File to a 


Disk File and Specify an Output Record Length 
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Explanation: 


Copy/dump is loaded from F1. 


Input file (OCL sequence): 

— The name that identifies the file on tape is BACKUP 
(LABEL-BACKUP). 

— The tape that contains the file is on tape unit 1 
(UNIT-T1); its name is T1T1T1 (REEL-T1T1T1). 

— The record format of the file is fixed length, 
unblocked records (RECFM-F). 


Output file (OCL sequence): 
— The name to be written to identify the file is 
MASTER (LABEL-MASTER). 
— The area that is to contain the file is main data area 
D1 (UNIT-D1); its name is D1D1D1 (PACK-D1D1D1). 
The file is to be permanent (RETAIN-P). 
The size of the file is 30 tracks (TRACKS-30). 


Control statement explanation: 

— The entire file will be copied from tape to disk and 
printed (OUTPUT-BOTH). 

— The output file will be direct (DATAMGMT-DIRECT). 


Figure 4-34. OCL and Control Statements to Build a Direct Disk 


File from Sequential Tape Input 
































77 VA COPA TO TT TH MOTO 
OAD BCaOP 

or Be Rig Sova oai zi 7 i ih ra ite a 4 i Be a aN a 
pea P iho: Ty HP : PTL 
eel “ee aa , 2 re eatery 

. C Ss ie Rel, D stp 
Selec SER Ht roe ut é- ny rt | 
WC TAAAMBAAMADREANRGUdE rh A HEE A 

HET Hh HTT Te Lt 





Explanation: 
®@ The copy/dump program is loaded from Fi. 


®@ Output file (OCL sequence): 
— The name to be written to identify the file is 
CUSTMAST (LABEL-CUSTMAST). 

— The area that is to contain the file is simulation area 
R1 (UNIT-R1); its name is R1R1R1 (PACK-R1R1R1). 
The file is to be permanent (RETAIN-P). 

— The size of the file is 10 tracks (TRACKS-10). 


® Control statement explanation: 

— The file will be copied from cylinder 202 
(CYLINDER-202), sector 0 (SECTOR-O); the record 
length of the input file is 256 bytes per record 
(RECL-256); the file is on simulation area R2 
(FROM-R2), and the record starts with the first byte 
of the sector (DISP-O). 

~— Records 1 through 25 will be copied and printed 
(FROM-1,TO-25, FILE-YES). 


Figure 4-35, OCL and Control Statements to Recover a Disk File 
from a Simulation Area 
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Explanation: 


@ The copy/dump program is loaded from FI. 


® Output file (OCL sequence): 

— Name to be written to identify the file is MASTER 
(LABEL-MASTER). 

— The main data area that is to contain the file is on 
drive 1 (UNIT-D1). The area name is D1D1D1 
(PACK-D1D1D1). 

— The file is to be temporary (RETAIN-T), 

— The size of the file is 100 tracks (TRACKS-100). 


® Control statement explanation: 

— The file will be copied from cylinder 160 
(CYLINDER-160), track 1 (TRACK-1), the record 
length of the file is 80 bytes (RECL-80), the file is 
recovered from main data area D2 (FROM-D2), and 
the record starts with the first byte of sector 1 
(SECTOR-1, DISP-0). 

— Records 1 through 1000 will be copied (FROM-1, 
TO-1000, FILE-YES). 


Figure 4-36. OCL and Control Statements to Recover a Disk File 
from a Main Data Area 
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Explanation: 
® Copy/dump program is loaded from F1. 


®@ Input file (OCL sequence): 
— The name that identifies the file is CONSVF 
(LABEL-CONSVF). 
— The area that contains the file is simulation area R1 
(UNIT-R1). Its name is R1R1R1 (PACK-R1R1R1). 


® Output file (OCL sequence): 

— The name of the output file is INDSVF 
(LABEL-INDSVF). 

— The area that is to contain the file is the main data 
area on drive 1 (UNIT-D1). Its name is D1D1D1 
(PACK-D1D1D1). 

— The size of the file is 100 tracks (TRACKS-100). 


@ Workfile 


$INDEX45 is a work file that may decrease execution 
time if a large indexed file is being created. For per- 
formance reasons, the work file should not be on the 
same disk drive as the output file. 


@ The COPYFILE statement tells the program to create an 
index for the output file using all the data from the 
input file. 


@ The KEY statement tells the program to create an index 
for the output file consisting of 23-byte keys 
(LENGTH-23) that are located 128 bytes into the 
record (LOCATION-128). 


Figure 4-37. OCL and Control Statements to Copy a Sequential 
File From a Simulation Area to a Main Data Area and 
Create an indexed Output File 
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Dump/Restore Program—$DCOPY 
PROGRAM DESCRIPTION | 
The dump/restore program has the following functions: 


@ Dump the entire contents of a main data area or simula- 
tion area onto magnetic tape, or dump the entire 
contents of a simulation area onto diskette. 


@ Restore the main data area or simulation area to its 
original contents by transferring information back from 
the tape or diskette. 


Important areas, such as those containing libraries and 
permanent data files, are normally copied. The tape or 
diskette contains a copy of all tracks and serves as a backup 
copy in case something happens to the information on the 
disk. 


An active spool file in the input area is dumped to tape. 
However, during the restore operation, the spool file is 
deleted. 


CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


Functions Control Statements © 


code 
Copy an entire area @) TO-code {yar} 

- -<N ,BACKUP- < ——— 
iG -tape-oF diskettevor // COPYPACK Nok [,PACK-name] | ,SYSTEM-< NO 3741 


YES 
restore an area from i/ EnD@® 
tape or diskette. 








@) Control statements are required in the order they are listed. 


@) There can be only one COPYPACK statement in a program. 


@ END statement must appear only once in a program since it is a delimiter indicating end of job. 
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PARAMETER SUMMARY 


COPYPACK Statement 


Parameter Meaning 


FROM-code Location of area to be copied. 
Possible codes are F1, R1, F2, R2, 
and those for the main data areas. 
TO-code Location of area to receive the 
copy. Possible codes are F1, R1, 
F2, R2, and those for the main 
data areas. See Figure 4-38 for 
relationship of FROM and TO 
locations. 


PACK-name 


Name of the main data area or 
simulation area being used. 


SYSTEM-NO The SYSTEM-NO parameter does 
not allow cylinder O IPL areas to 
be dumped or restored. 
SYSTEM-YES SYSTEM-YES specifies that the 
IPL areas on cylinder O are to be 
dumped or restored along with 
the specified simulation area. 
SYSTEM-code Dump the IPL areas from cylinder 
0 of the main data area along with 
the simulation area specified by 
the FROM parameter. Possible 
codes are those for the main data 
areas. 

BACKUP-TAPE The BACKUP-TAPE parameter 
specifies that magnetic tape 
(3410-3411) is to be used for 
dump/restore. 

BACKUP-3741 BACKUP-3741 specifies that 
diskettes are to be used to dump 
or restore the specified simulation 
area. 





PARAMETER DESCRIPTIONS 


FROM and TO Parameters (COPYPACK) 


The COPYPACK statement is used to copy information 
from disk to tape, tape to disk, disk to diskette, or diskette 
to disk. 


The FROM parameter (FROM-code) indicates the location 
of the area being copied. The TO parameter (TO-code) 


indicates the location of area to receive the copy. 


Possible codes for the FROM and TO parameters are R1, 
F1, R2, F2, and those for the main data areas. 


See Figure 4-38 for the relationship of FROM and TO 
locations. 
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Simulation area 
(Possible codes are 
F1, R1, F2, R2) 


RESTORE COPY TO 


DUMP COPY TO 


3410/3411 tape 
(T1, T2, T3, or T4 
as indicated on FILE 
statement) or 3741 
diskette 


DUMP COPY TO 


Main data area 
(Possible codes are those 
for the main data areas) 


Notes: 


RESTORE COPY TO 


3410/3411 tape 
(T1, T2, T3, or T4 
as indicated on FILE 
statement) 


1. When you copy disk to tape (dump), you may specify any simulation area or main data area as input, 
including the system simulation area or program simulation area. 


When you copy tape to disk (restore), the TO code must not specify the system simulation area, the 
program simulation area, or another simulation area containing libraries, temporary data files, or permanent 
data files. 


The area receiving the restored copy must be the same type (simulation or main data area) as the original 


area. 


Figure 4-38. Relationship of Disk to Tape Drives When Using $DCOPY 


PACK Parameter (COPYPACK) 


The pack name specified is checked against the actual name 
of the main data area or simulation area. A halt occurs if 
they are not the same. If the parameter is not used, no 
checking occurs. 


SYSTEM Parameter (COPYPACK) 


The SYSTEM parameter is an optional parameter used to 
specify whether cylinder 0 IPL information is to be dumped 
or restored with the specified simulation area. SYSTEM- 
YES allows cylinder 0 to be dumped or restored to either 
tape or diskette. SYSTEM-code allows the cylinder 0 IPL 
areas of the unit specified by the code along with the simu- 
lation area specified in the FROM parameter to be dumped 
to either tape or diskette. SYSTEM-NO does not allow 
cylinder 0 to be dumped or restored. The default is 
SYSTEM-NO. 


If SYSTEM-YES is specified for the dump, SYSTEM-YES 
must also be specified for the restore. 
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BACKUP Parameter (COPYPACK) 


The BACKUP parameter specifies which device (tape or 
diskette) is to be used for backup. Tape may be used to 
back up a main data area, a simulation area, and cylinder 0. 
Diskettes can be used only to back up a simulation area and 
cylinder 0. Also, the 3741 data set must be set for 128-byte 
records. 


DUMP/RESTORE CONSIDERATIONS 


When you dump a main data area on a 3340 to tape and 
then restore the tape to a main data area on a 3344, only 
cylinders O—166 are copied to the 3344. 


When you dump a main data area on a 3344 to tape and 
then restore the tape to a main data area on a 3340, only 
cylinders O—166 are copied to the 3340. 


$DCOPY can copy areas with active files if the active files 
are input only. Areas cannot be copied if they contain 
active files that are being modified. 


A ‘WF’ message occurs if an attempt is made to restore a 
main data area on a 3340 from a tape that contains a dump 
from a main data area on a 3344 that has files allocated on 
_ cylinders 167--186. Only cylinders O—166 can be copied 
to the 3340. 


During the restore function, portions of the new area 
(simulation or main data) are changed to prevent accidental 
usage of a partially filled area until the contents of the tape 
or diskettes are completely copied to the new area. There- 
fore, if the copying process is stopped before it is 
completed, the area is unusable. You can restart the copy- 
ing process by reloading the dump/restore program, or you 
can restore the area by reinitializing. 


Before you dump a main data area from a 3344, you should: 


1, Determine if an active file(s) exists on cylinders 167 
through 186 (if necessary, execute $LABEL). If so, 
you should execute the File Compress Program 
(SFCOMP) to move this file(s) within cylinders 1 
through 166 (this occurs only if sufficient space 
exists on these cylinders). 


2. Execute the Dump/Restore Program (SDCOPY). 
This program then copies (dumps) only cylinders 0 
through 166. 


Page of GC21-5162-1 
Issued 28 September 1979 
By TNL: GN21-5674 


OCL CONSIDERATIONS 


The $DCOPY system service program requires the following 
OCL statements: 


// LOAD $DCOPY code 
// FILE parameters 
// RUN 
The code identifying the location of the $DCOPY program 
can be R1, F1, R2, or F2. 
FILE Statement Considerations 
@ The name of the file must always be BACKUP. 


@ When a 7-track tape is used for the dump/restore 
program, CONVERT-ON must be specified. 


@ The record format is always fixed length. 


@ The END position of the tape after processing always 
defaults to UNLOAD. 


@ QOuring a restore operation, the density parameter must 
be the same number as specified for the dump. 


@ The record length, if specified, is ignored because 
$DCOPY makes the record length equal to the block 
length. 


@ The FILE statement is not required when the program 
is copying from disk to diskette. 


@ $DCOPY supports single volume tape files, multivolume 
tape files, and multifile tape volumes. For a detailed 
description of the FILE statement parameters, see the 
appropriate FILE statement in Part 1 of this manual. 
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Statement Entries 
Statement Entry 
// LOAD 
$DCOPY 


code 


// FILE 
NAME-filename 


BLKL-block 
length 


// RUN 


Consideration 
None 
Name of dump/restore program. 


Location of simulation area con- 
taining dump/restore program. 
Possible codes are R1, F1, R2, or 
F2, 


None 
Filename entry must be BACKUP. 


Block length and record length 
must be equal and one of the 
following values: 


Note: The tape record created is 
2 bytes longer than specified 
because a 2-byte logical record 
number is appended to the tape 
record. Defaults are underlined. 


Length Number 
in of 
Disk Bytes Tracks 
Simulation 3072 1/2 track 
area 6144 1 track 
12288 2 tracks 
Main 3072 1/4 track 
data 6144 1/2 track 
area 12288 1 track 
24576 2 tracks 
None 


For a detailed description of the OCL statements, see Part 1 


of this manual. 


Note: The remaining FILE statement Parameters are 
described in the tape file OCL statement in Part 1. 
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Messages for DUMP/RESTORE 


Message 


COPYPACK iS 
COMPLETE 


N TRACKS NOT 
RESTORED AT 
CC/SS 


CCC/HH/RR 


NN TAPE ERRORS 
OCCURRED 

PACK IS NOT 
COMPLETELY 
RESTORED. 


EXAMPLES 


Meaning 


This message indicates that the area 
has been dumped to tape or the 
tape has been restored to disk. 


This message indicates the tracks 
that have not been restored on the 
simulation area or main data area. 
N = the number of tracks not 
restored. CC/SS is the address for a 
simulation area. CCC/HH/RR is 
the address for a main data area. 


This message indicates that tape 
errors have occurred or the 
restored area has missing data. 

NN = the number of tape errors. 
See previous messages for location 
of tracks not restored. 


The parameters of the FILE statement vary depending upon 
whether the copy is to or from the tape. 


Figures 4-39 through 4-44 show the OCL and control state- 
ments to dump from disk to tape, restore from tape to disk, 
and dump from disk to diskette. 


FILE Statement: From Disk to Tape Control Statements 


Only required parameters are included in this example. See 
OCL Considerations for a listing of possible parameters. 











Explanation: 











@ The COPYPACK statement tells the program to copy an 
entire area to tape. 


explanation: @ The copy is from F1 (FROM-F1). 


© The dump/restore program is loaded from F1. @ FIXED1 is the name of the simulation area being used 
(PACK-FIXED1). The program verifies that the area has 


@ The file name is always BACKUP (NAME-BACKUP). the volume label FIXED1 


@ The copy goes to tape unit 2 (UNIT-T2). Figure 4-40. Control Statement to Dump from Disk to Tape 


@ Tape unit 2 is a 9-track drive. 


Figure 4-39. LOAD and FILE Statements to Dump from Disk to 
Tape 
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FILE Statement: From Tape to Disk - 
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Explanation: 


@ The dump/restore program is loaded from R1. 
® The file name is always BACKUP. 

®@ Tape unit 2 contains the area copy. 

@ Tape unit 2 is a 7-track drive. 

®@ TAPE2 is the label of the tape volume. 

®@ KEEPS is used in the header label. 

@ The date is March 11, 1976. 

® Block length is 6144. 

® CONVERT-ON indicates data conversion. 


@ END, PARITY, and TRANSLATE parameters given are 
the same as the default values. 


Figure 4-41. LOAD and FILE Statements to Restore from Tape to 
Disk 


4-68 














Explanation: 


@ The COPYPACK statement tells the program to copy an 
entire tape to F1 (TO-F1). 


@ The program restores cylinder 0 IPL records along with 
F1 (SYSTEM-YES). 


@ FIXED1 is the name of the simulation area being used 
(PACK-FIXED1). The program verifies that the area has 
the volume label FIXED1. 


@ Backup medium is magnetic tape. 


Figure 4-42. Control Statement to Restore from Tape to Disk 


Control Statement: From Disk to Diskette 














Explanation: 
@ The dump/restore program is loaded from F1. 


@ The COPYPACK statement tells the program to copy the 
simulation area F2 (FROM-F2) to the 3741 
(BACKUP-3741). 


@ Approximately 11 diskettes are needed to contain the 
copy from simulation area F2. 


@ The record length on the 3741 diskette must be 128. 


Figure 4-43. LOAD and Control Statements to Dump from Disk to 
Diskette 


Dump/Restore Program—$DCOPY 


4-69 


Control Statement: From Disk to Tape 


iB 
a 

















Explanation: 
© The dump/restore program is loaded from F1. 


@ The COPYPACK statement tells the program to copy the 
simulation area F1 (FROM-F1). 


@ The program copies cylinder 0 IPL records from D31 
along with F1 (SYSTEM-D31). 


@ FIXED1 is the name of the simulation area being used 
(PACK-FIXED1). The program verifies that the area has 
the volume label FIXED1. 


® Backup medium is magnetic tape (BACKUP-TAPE). 


Figure 4-44. Load and Contro! Statements to Dump from Disk to 
Tape 


Programming Considerations 


When dumping from one of the simulation areas to diskette, 
put the 3741 online in mode 3. (Modes 1, 2, and 5 result in 
extent error conditions at the end of each diskette.) See 
note. 


When restoring from diskette to one of the simulation areas, 
put the 3741 online in mode 3 or mode 5. If the 3741 is 

put online in mode 1, $DCOPY goes to end of job at the 

end of the first diskette. If the 3741 is put online in mode 2, 
the operator must put the 3741 online after each diskette is 
read (see note). 


The COPYPACK IS COMPLETE message indicates the 
successful completion of $DCOPY. If this message is not 
logged after restoring to disk, the simulation area copied to 
will not be usable. 


Note: Refer to /BM System/3 3741 Reference Manual, 


GC21-5113, for further explanations of the 3741 modes of 
operation. 
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File Delete Program—$DELET 
PROGRAM DESCRIPTION 
The file delete program has the following functions: 


@ Remove all file information from the VTOC and the 
data from an area. 


@ Remove file information by name from the VTOC and 
the data from an area. 


@ Remove file information in the volume table of contents 
(VTOC) only. This frees the space it occupies for use by 
new files but does not remove the data from an area. 


@ Free space that has been allocated but, due to abnormal 
circumstances, does not actually contain data. 


Deleting Files 


The program may be used for temporary and permanent 
files. To delete permanent files, you must use the file 
delete program. You can delete temporary files by using 
the file delete program or by changing the file designation 
from temporary to scratch (using the OCL keyword 
RETAIN) when you use the file. 


When a REMOVE statement is used, file information is 
erased from the VTOC. The REMOVE statement can also 
be used to erase data from an area. 


To be compatible with System/3 Models 8, 10, and 12, 
Model 15 recognizes the SCRATCH statement. However, 
all functions are performed as if it were a REMOVE state- 
ment. 


Freeing Space on an Area 


When a program creates a new file on an area, space for the 
file is allocated when the program is loaded. At the end of 
the program, the VTOC on that area is updated to reflect 
the creation of the new file. 


Under very unusual circumstances, such as power failure or 
re-IPL while the program is running, the system may be 
prevented from updating the VTOC even though space has 
already been allocated for the new file. If this happens, 
the file delete program may be used to free this space. 


Merely canceling a program or responding to a halt with an 
immediate cancel option does NOT cause this problem to 
occur because the system in this case frees up the unused 
space. 
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CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


Functions Control Statements ® 
NO 


Remove all files // REMOVE PACK-name, UNIT-code, LABEL-VTOC : DATA- rest | 

from an area 

Remove only the 7, REMOVE PACK-name, UNIT-code, LABEL {me ‘ DATE-date [ pata {82 \] 
file(s) named from filenames YES 
an area 


Free all allocated // FORMAT UNIT-code, PACK-name 
space not contain- // END 

ing files, libraries, 

or system areas 


@) For each use, the program requires the control statements in the order they are listed: REMOVE, END. Defaults 


are underlined. 


@ Use this form of the REMOVE statement when two or more files have the same name and you want to delete 
one of them. 


@) Use this control statement when you suspect that a system failure or an inadvertent re-IPL may have left space 
allocated but not actually being used. 
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PARAMETER SUMMARY 


Parameter Description 


PACK-name Name of the area. 





UNIT-code Location of the area. Possible codes are R1, F1, R2, F2, and those for the 
main data areas. 


LABEL-VTOC Remove all file information from the VTOC. 

LABEL-filename Remove only the VTOC information for the specified file. Use names that 
identify files in 

LABEL-’filename,filename.... Remove only the VTOC information for the specified files. VTOC. Q) 

DATE-date Date on the file being deleted. Date must be a six-digit number. 


Example: DATE-060776 means June 7, 1976 


DATA-YES Delete data as well as VTOC entry. 
NO Do not delete the data; delete only the VTOC entry. 


@) These are the names you gave the files when you placed them on an area. 
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PARAMETER DESCRIPTIONS 
PACK Parameter 


The PACK parameter (PACK-name) tells the program the 
name of the area that contains the files being deleted. The 
name you supply in this parameter is the one written by the 
disk initialization program. 


For a simulation area, it is the name assigned by the simula- 
tion area program $COPY. 


The file delete program compares the name in the PACK 
parameter with the volume label to ensure they match. In 
this way, the program ensures that it is using the right area. 


UNIT Parameter 


The UNIT parameter (UNIT-code) tells the program the 
location of the area containing the files being deleted. 
Possible codes are R1, F1, R2, F2, and those for the main 
data areas. 


LABEL Parameter 


The LABEL parameter identifies the file(s) you want to 
delete from the area. Its form depends on the file(s) you 
are deleting: 


Form Files Deleted 


LABEL-VTOC All of them. 


LABEL-filename Only the file that is named. The name 
can apply to more than one file. If it 
does, all of those files are deleted 
unless you use a DATE parameter to 
identify a particular one. 


LABEL-'filename, 
filename,...' 


Only the files that are named. A name 
can apply to more than one file. If it 
does, all of those files are deleted. 
Files that you want to delete using the 
DATA parameter must be in separate 
control statements. You can list as 
many file names as the statement can 
hold; the statement length, however, is 
restricted to 80 or 96 characters. 
Additional REMOVE statements may 
be used for additional file names. 
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DATE Parameter 


The DATE parameter can be used only with 
LABEL-filename. The DATE parameter (DATE-date) 
applies to two or more files that have the same name. It 
tells the program the date of the file you want to delete. 


Every file has a date, which is given to the file at the time it 
is created. When two or more files have the same name, the 
dates are used to distinguish one file from another. 


If the area has more than one file with the name you list in 
the LABEL parameter, they will be deleted unless you use 
the DATE keyword and parameter to indicate a particular 
file. If the DATE keyword is used, only one filename can 
be given in the LABEL parameter for the control statement. 


The date is a six-digit number in the form mmddyy or 
ddmmyy (d-day, m-month, y-year) Be sure to specify the 
date in the form specified during system generation. 


In the DATE parameter, be sure to specify day, month, and 
year in the same order as they were specified when you 
created the file. 


DATA Parameter 


The DATA parameter allows you to erase the file data as 
well as the VTOC entry. 


If YES is coded in this parameter, the data in the file 
specified is removed and any reference to it in the VTOC is 
also removed. In addition, the following is issued for each 
file removed. 


"DATA REMOVED FOR FILE XXXXXX 
DATA 000000’ 


DATA-YES should be used only if file security is required. 
The time needed to remove the data is much greater than 
the time needed to remove only the VTOC entry. 


If NO is coded in this parameter, only the VTOC entry for 
the file specified is removed. If this parameter is not used, 
DATA-NO is assumed. 


OCL CONSIDERATIONS 


The following OCL statements are needed to load the file 
delete program: 


// LOAD $DELET,code 
// RUN 


The code you supply depends on the location of the simula- 
tion area containing the program. Possible codes are R1, 
F1, R2, F2. 


EXAMPLES 
Deleting One of Several Files Having the Same Name 


Figures 4-45, 4-46, 4-47, and 4-48 show the OCL state- 
ments and control statements needed to delete one of 
several files having the same name. 


Assume that three files on a removable disk have the same 
name: INVO1. The dates of these files are 6/16/76, 
6/18/76, and 1/15/76. You want to delete the version 
dated 6/16/76. 
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Explanation: 


@ The file delete program is loaded from F1. 


Figure 4-45. OCL Load Sequence for File Delete 
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Explanation: 


@ The area that contains the file being deleted is named 
00001 (PACK-00001 in REMOVE statement). 


® Because two other files have the name INVO1, the date 
(061676) is needed to complete the identification of the 
file you want to delete (LABEL-INVO1 and 
DATE-061676). 


@ The main data area containing the file to be deleted is 
D1 (UNIT-D1). 


Figure 4-46. Contro! Statement to Delete One Version of a File 
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Explanation: 


@ The area that contains the file being deleted is named 
00001 (PACK-00001 in REMOVE statement). 


@ Because two other files have the name INVO1, the date 
(061676) is needed to complete the identification of the 
file you want to delete (LABEL-INVO1 and 
DATE-061676). 


@ The main data area containing the file to be deleted is 
D1 (UNIT-D1). 


@ The YES specification in the DATA parameter deletes 
all data from the area containing information on the 
specified file. 


Figure 4-47. Control Statement to Delete One Version of a File 
and Its Data 
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Freeing Allocated But Unused Space on an Area 


Figure 4-48 shows the FORMAT control statement. The 
following control statement frees any areas on the simula- 
tion area R1 that have been allocated but are not being 
used. This condition may exist following the abnormal 
termination (such as a power failure or re-IPL) of a 
program that was creating a file. 





Explanation: 


@ Free any allocated but unused space on the simulation 
area R1 (UNIT-R1) named 00001 (PACK-00001). 


Figure 4-48. Control! Statement to Free Allocated But Unused 
Space on a Simulation Area 
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File Compress Program—$FCOMP 
PROGRAM DESCRIPTION 
The file compress program has the following functions: 


® Copy files from one main data area to another main data 
area without altering the files in either area. 


@ Move files within the same main data area. 


@ Back up (disk to tape) all files or selected files contained 
on a main data area(s). 


@ Restore (tape to disk) all files or selected files to a main 
data area(s). 


The file compress program performs only one function 
(copy, move, backup, or restore) during one execution. 


MOVE AND COPY FUNCTIONS 


The code you supply in the FROM and TO parameters 
determines which function is performed. If the same main 
data area code is specified in each of the parameters, the 
program performs the move (compress) function. If you 
supply different main data area codes in the FROM and TO 
parameters, the program performs the copy function. 


Move Function 


During the move function, the program removes gaps from 
between files by moving each file so that it occupies disk 
space adjacent to the previous file. If COMPRESS-LO is 
specified or assumed, after $F COMP is executed the files in 
the specified main data area occupy a contiguous space 
starting at cylinder 1; if COMPRESS-HI is specified, after 
execution the files in the specified main data area occupy a 
contiguous space that ends at the highest numbered available 
cylinder (see note). 
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Copy Function 


The copy function copies (adds) the files on the main data 
area specified by the FROM code to the existing files on 
the main data area specified by the TO code. 


If COMPRESS-HI is specified, space for the added files is 
allocated beginning from the highest numbered available 
cylinder; otherwise, space for the added files is allocated 
from the beginning of the main data area (cylinder 1). 


Note: The file compress program attempts to move all 
files into a contiguous space that either starts at cylinder 

1 or ends at cylinder 166 (3340) or cylinder 186 (3344). 
However, the file compress program will not move or copy 
the $SPOOL or the $CCPDUMP file; in addition, if the 
system’s measurement facility is active, the file compress 
program will not move a$MONITOR file. Therefore, if an 
exception file (SSPOOL, $CCPDUMP, or $MONITOR) is 
encountered during the move function, gaps may exist 
between the last record (first record if COMPRESS-HI is 
specified) of the compressed files and the beginning (end 
if COMPRESS-HI is specified) of each of the exception 
files. 


BACKUP AND RESTORE FUNCTIONS 


The FROM or TO parameter, which you specify on a 
control statement, determines the function that is per- 
formed by the program. If you specify the FROM param- 
eter, the program performs the backup function; if you 
specify the TO parameter, the program performs the restore 
function. However, the program will perform only one 
function during one execution of the program. Therefore, 
you cannot intermix control statements that have FROM 
and TO parameters. You can, however, specify a maximum 
of 10 control statements during one execution of the 
program. 


Backup Function 


During the backup function, the tape is created as a multi- 
file volume. The first block of information on the tape 
contains $F COMP information about the file. The 
remaining blocks are data blocks. The file(s) is blocked to 
tape with the blocking factor specified on an OCL FILE 
statement. 


Each file that is copied is assigned a number. This number 
enables the program to locate the file if you choose to 
restore only selected files. 


After a file has been copied, the FILE xxxxxxxx HAS 
BEEN COPIED TO POSITION zzzz ON TAPE message is 
issued. 


After a successful backup function, the TAPE COPY IS 
COMPLETE message is issued. 


The COMPRESS keyword is ignored if specified on the 
backup function. 


Restore Function 


During the restore function, the file(s) is placed in the first 
available space beginning from cylinder 1 (COMPRESS-LO), 
cylinder 166 (COMPRESS-HI and 3340), or cylinder 186 
(COMPRESS-HI and 3344). The disk space allocated to the 
restored file is the same amount that was allocated to the 
original file. Also, all characteristics of the restored file 
@xcept location and date are the same as the original file. 


A parameter on the control statement enables the program 
to select any file on the tape. To locate the file, the param- 
eter uses the file number that was assigned to the file during 
the backup function. If you omit this parameter, the 
program restores all the files that were copied during the 
backup function. 


After a file is restored, the FILE xxxxxxxx HAS BEEN 
COPIED FROM POSITION zzzz ON TAPE message is issued. 


After a successful restore function, the TAPE COPY IS 
COMPLETE message is issued. 
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CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


Functions Control Statements 


Copy files from one /! COPYFILES FROM-code,TO-code [,PACKIN-name] [,PACKO-name] [compress Lofl 


main data area to 
another main data 
area, or move files 
within the same 
main data area 


// END 


FROM 


Back up a file(s) // TAPEFILES ee 


from disk to tape 

or restore a file(s) 1 

from tape to disk SEQNUM- 4X [comer ESS. ‘ ey 
‘number’ — 


\ -code[,LABEL-filename] [,PACK-name] 


// END 





PARAMETER SUMMARY 


Parameter Description 
COPYFILES Statement 


FROM-code Specifies the location of the main data area that contains the files to be moved 
(compressed) or the files to be copied. Valid codes are those for the main data 
areas. 


TO-code Specifies the location of the main data area that contains the files to be moved 
(compressed) or receives the copied files. Valid codes are those for the main data 
areas. 


PACKIN-name Specifies the name of the main data area to be used as the input area (copy func- 
tion) or to contain the moved (compressed) files (move function). 


PACKO-name Specifies the name of the main data area to be used as the output area (copy 
function) or to contain the compressed files (move function). 


COMPRESS-LO Allocates the first available space for the file starting from the beginning of 
the main data area (cylinder 1). 


COMPRESS-HI Allocates the first available space for the file starting from the end of the 
main data area (cylinder 166 for a 3340 or cylinder 186 for a 3344). 
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Parameter Description 
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TAPEFILES Statement 


FROM-code 


TO-code 


LABEL-filename 


PACK-name 


SEQNUM-1 


SEQNUM-X 


SEQNUM-’‘number’ 


COMPRESS-LO 


COMPRESS-HI 


Specifies the location of the main data area that contains the file(s) to be backed 
up. Valid codes are those for the main data areas. 


Specifies the location of the main data area to which the files are to be restored. 
Valid codes are those for the main data areas. 


Specifies the file that you choose to back up or restore. If this parameter is 
omitted, all files on the main data area or the tape are copied. 


Specifies the name of the main data area that is used as input for a backup function 
or output for a restore function. 


Specifies that the first file is to be written on tape immediately following the 
volume label (backup function). Or, specifies that a file(s), starting with file 
number 1 is to be read during the restore function. 


If this parameter is specified on the first control statement, the program: 
— Writes file number 1 on tape immediately following the volume label 
(backup function); 
— Reads a file(s) starting with file number 1 during the restore function. 
When this parameter is included on any control statement other than the first one, 
the program increments the file number by 1 for each file processed. 


This parameter specifies the file number where file processing is to begin. 


Allocates the first available space for the file starting from the beginning of the 
main data area (cylinder 1). 


Allocates the first available space for the file starting from the end of the main 
data area (cylinder 166 for a 3340 or cylinder 186 for a 3344). 





File Compress Program—$FCOMP 4-81 


PARAMETER DESCRIPTION 
FROM and TO Parameters (COPYFILES) 


The FROM parameter (FROM-code) specifies the main data 
area that contains the files to be moved or copied. The TO 
parameter specifies the main data area that contains the files 
to be moved or receives the files specified in the FROM 
parameter. If the FROM and TO parameters are the same, 
the files on the specified main data area are moved. If the 
parameters are different, the files contained in the main 
data area specified by the FROM parameter are copied to 
the main data area specified by the TO parameter. 


PACKIN and PACKO Parameters (COPYFILES) 


These parameters are optional. They are used to verify that 
the correct data module is online and/or the correct main 
data area has been specified. Either one or both param- 
eters may be supplied. 


COMPRESS Parameter (COPYFILES) 


This parameter determines the location that the file(s) will 
be moved or copied to relative to the beginning (cylinder 1) 
or the end (cylinder 166 for a 3340 or cylinder 186 for a 
3344) of the main data area. The COMPRESS-LO param- 
eter causes the file(s) to be moved to the available space at 
the beginning of the main data area. The COMPRESS-HI 
parameter causes the file(s) to be moved to the available 
space at the end of the main data area. 


FROM Parameter (TAPEFILES) 

The FROM parameter (F ROM-code) serves a dual purpose. 
It tells the program to perform the backup function. it 
also specifies the main data area that contains the files to 
be backed up. 

TO Parameter (TAPEFILES) 

The TO parameter (TO-code) serves a dual purpose. It tells 


the program to perform the restore function. It also speci- 
fies the main data area that is to receive the restored files. 
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LABEL Parameter (TAPEFILES) 


This optional parameter specifies the name of the file that 
is to be backed up or restored. If the program performs the 
backup function and this parameter is omitted, all fifes on 
the main data area specified in the FROM parameter are 
copied to tape (backed up). 


!f the program performs the restore function and this 
parameter is omitted, the program copies or attempts to 
copy all files from the tape to the main data area specified 
in the TO parameter (restore). If the program cannot find 
sufficient disk space for the files, a message is issued. 


PACK Parameter (TAPEFILES) 


This optional parameter specifies the name of the main 
data area that either contains the input files for the backup 
function or receives the output files for the restore func- 
tion. 


SEQNUM Parameters (TAPEFILES) 


During the backup function, this optional parameter 
(SEQNUM-1) specifies that the first file processed for the 
control statement is to be assigned file number 1 and written 
to the first location on tape. During the restore function, 
the first file that the program reads is file number 1. 


The optional parameter SEQNUM-X causes the program to 
operate differently depending on when the control state- 
ment containing the parameter is processed. If you specify 
this parameter on a single control statement or the first 
control statement of a group, the program operation is the 
same as when you specify the parameter SEQNUM-1. If 
you specify SEQNUM-X on any control statement except 
the first one, the program increments by 1 the file number 
that was assigned to the last file processed and assigns the 
updated number to the first file processed for this control 
statement. 


During the backup function, the optional parameter 
SEQNUM- ‘number’ allows you to assign the first file num- 
ber and the location to the first file processed for the 
control statement. 


During the restore function, the SEQNUM- ‘number’ param- 
eter allows you to select the starting location of the file(s) 
to be restored. 


COMPRESS Parameter (TAPEFILES) 


The COMPRESS parameter is ignored for the backup func- 
tion. During the restore function, this parameter specifies 
where the file is to be located relative to the beginning 

and the ending cylinders of the main data area. If 
COMPRESS-LO is specified, the file(s) will be located in the 
first available space starting at cylinder 1; if COMPRESS-HI 
is specified, the file(s) will be located in the first available 
space toward the end cylinder of the main data area. 


CONSIDERATIONS AND RESTRICTIONS 


@ File compress program functions are effective only for 
main data areas. 


@ Unexpected messages and an unusable file can result 
from canceling the partition that is executing the file 
compress program. 


@ A file with the same name and date as a file in the TO 
area is not copied. 


@ An indexed multivolume file is not copied if two 
indexed multivolume files already exist in the TO area. 


@ A multivolume file with the same name as an existing 
file in the TO area is not copied. 


@ A file with the same name as an existing multivolume 
file in the TO area is not copied. 


@ The LOCATION parameter on the FILE statement must 
be changed after the file is moved. 


@ A file is not copied when space is not available in the 
TO area. 


@ File compress program cannot execute if spool is active 
on the pack specified in the TO parameter. Stop spool 
until $FCOMP has finished. 


®@ The location of the space that is allocated for an added 
file(s) is determined by the smallest available space that 
will contain the file(s). It is possible for an added file to 
be located near the low end of the main data area even 
though COMPRESS-HI is specified. Likewise, an added 
file can be located at the high end of the main data area 
even though COMPRESS-LO is specified. 
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@ AS$SPOOL, $CCPDUMP, or $MONITOR file is not 
copied if encountered during the copy, move, or backup 
function. 


@ All main data area codes are valid for the TO and FROM 


parameters on the COPYFILES or TAPEFILES state- 
ment. 


@ $FCOMP attempts to copy all files (regardless of their 
size), one file at a time, from one main data area to 
another main data area. If a file is encountered on the 
FROM main data area that will not fit into the available 
storage space on the TO main data area, then $| COMP 
issues a message and halts. The message identifies the 
file that did not copy and informs the operator of the 
available options. This situation applies to all files, 
regardless of their Jocation (cylinders 1 through 166 on 
a 3340, or cylinders 1 through 186 on a 3344). 


@ Only the actual records of a file are copied to tape 
(backed up). When the last record of a file is copied, the 
program considers the file completely copied, even 
though there may be more space allocated to the file. 


@ When the backup function is used to copy one or more 
disk files to tape or the restore function is used to copy 
one or more tape files to disk, the entire main data area 
on the disk is dedicated to the partition. if any files 
are allocated on the main data area, the partition will 
issue a Message. 


FILE STATEMENT CONSIDERATIONS AND 
RESTRICTIONS (BACKUP AND RESTORE) 
@ Conversion must be specified when 7-track tape is used. 


@ The record format (RECFM) entry defaults to fixed (F) 
even if another format is specified. 


@ !fan END parameter is not specified, the default is 
UNLOAD. 


@ BACKUP must be specified as the NAME parameter. 


@ The record length is always equal to the block length. 
The valid block lengths are: 


1536 1/8-track transfer (default value) 
3072 1/4-track transfer 

6144 1/2-track transfer 

12288 = 1-track transfer 

24576 = 2-track transfer 
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@ A labeled tape must be used to ensure that the tape file 
sequence can be displayed at a later time. (A REEL 
Parameter must be specified on the FILE statement.) 


@ The SEQNUM keyword defaults to the value specified 
on the TAPEFILES statement. 


@ The label of the tape for the file is the same as the 
header label. 


@ Multivolume tape files are supported, 


OCL CONSIDERATIONS 


The following OCL statements are needed to load the file 
compress program: 


// LOAD $FCOMP,code 
// RUN 


The code you supply depends on the location of the simu- 
lation area containing the program. Possible codes are R1, 
F1, R2, F2. 
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EXAMPLES 


Figures 4-49, 4-50, 4-51, and 4-52 show the OCL and con- 
trol statements to copy and move files. 


Figures 4-53 through 4-59 show the OCL and control state- 
ments to back up and restore files. 

















Explanation: 
@ The file compress program is loaded from F1. 


® Control statement explanation: 
— The files on the main data area on drive 2 (FROM-D2) 
are added (copied) to the existing files on the main 
data area D3 (TO-D3). 


Figure 4-49. OCL and Control Statements for Copying Files 
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Explanation: 
@ The file compress program is loaded from F 1. 


@ Control statement explanation: 
— The files on the main data area on drive 2 are moved 
(FROM-D2,TO-D2). 
— The name of the main data area on drive 2 is verified 
(PACKIN-D2D2D2). 


Figure 4-50. OCL and Control Statements for Moving Files 
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Explanation: 


@ The file compress program is loaded from F1. 


®@ Control statement explanation: 

— The files on the main data area on drive 1 (FROM-D1) 
are added (copied) to the existing files on the main 
data area on drive 2 (TO-D2). 

— The files are added to the high end of the main data 
area on D2 (COMPRESS-H}). 


Figure 4-51. Copy Files from a Main Data Area to the High End 
of Another Main Data Area 
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Explanation: 


® The file compress program is loaded from F1. 


® Control statement explanation: 
— The files on the main data area on D2 are moved 
toward the beginning of the main data area 
(COMPRESS-LO). 








Figure 4-52. Move Files toward the Beginning of the Main Data Area 
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Explanation: 
©@ The file compress program is loaded from F 1. 


®@ Output file (OCL sequence): 
— The file name is always BACKUP (NAME-BACKUP). 
— The copy will go to tape unit 2 (UNIT-T2). 
— The tape unit is a 9-track drive. 
— The tape volume label is ONE (REEL-ONE). 


® Control statement explanation: 
~— The files are located on drive 3 (FROM-D3). 
— The first files are copied to the first position on tape 
(SEQNUM-1). 
— The pack name on drive 3 must be MASTER 
(PACK-MASTER). 


Figure 4-53. OCL and Control Statements to Back Up All the Files 
on a Main Data Area to Tape 
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Explanation: 


® The file compress program is loaded from R1. 


@ Input file (OCL sequence): 

— The file name is always BACKUP (NAME-BACKUP). 

— The backup files are contained on tape drive 1 
(UNIT-T1). 

— The label of the tape volume is BACK1 
(REEL-BACK1). 

— Tape unit 1 is a 9-track drive. 

— Block and record lengths are 6144 (BLKL-6144). 


® Control statement explanation: 
~ The backup files are copied to drive 2 (TO-D2). 
— The files are copied starting at the fifth position 
(SEQNUM-5) on the tape. 


Figure 4-54. OCL and Control Statements to Restore the Files 
from a Specific File Number 
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Explanation: 


The file compress program is loaded from R2. 


tput file (OCL sequence): 

The file name is always BACKUP (NAME-BACKUP). 
The files are copied to tape unit 4 (UNIT-T4). 

The tape unit is a 9-track drive. 

Block and record lengths are 12288 (BLKL-12288). 
The label of the tape volume is TAPE (REEL-TAPE). 
The tape remains in the position it was in after the 
last record is written (END-LEAVE). 


Figure 4-55. OCL and Control Statements to Back Up Selected Files 


Control statement explanation: 

— The file named PAYROL (LABEL-PAYROL) is 
copied from drive 1 (FROM-D1) to the first position 
on tape (the default of the SEQNUM parameter is 
position 1). 

— The file named HOURWK (LABEL-HOURWK) is 
copied from drive 2 (FROM-D2) to the second 
position on tape. 

— The file named MASTER (LABEL-MASTER) is 
copied from drive 3 (FROM-D3) to the third position 
on tape. 

— The file named BACKUP (LABEL-BACKUP) is 
copied from drive 4 (FROM-D4) to the fourth 
position on tape. 

— The files named PERSONEL and ZIPCODE 
(LABEL-PERSONEL, LABEL-ZIPCODE) are copied 
from drive 1 (FROM-D1) to the fifth and sixth 
positions. 

— The files named FEDTAX, STATAX, FILEA, and 
FI!LEB are copied from drive 2 (FROM-D2) to the 
seventh, eighth, ninth, and tenth positions. 

— The pack name is WORK1 on drive 1. 

— The pack name is WORK2 on drive 2. 
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Explanation: 
@ The file compress program is loaded from F2. 


® Input file (OCL sequence): 
— The file name is always BACKUP (NAME-BACKUP). 
— Tape unit 3 contains the backup files (UNIT-T3). 
~ The label of the tape volume is TAPE1 
(REEL-TAPE1). 
— Block and record lengths are 24576 (BLKL-24576). 
— Tape unit 3 is a 7-track drive (CONVERT-ON), 
~ CONVERT-ON indicates data conversion. 


Figure 4-56. OCL and Control Statements to Restore Selected Files 


















































® Control statement explanation: 
— The file named MASTER (LABEL-MASTER) is 


copied to drive 1 (TO-D1) from the third position on 
tape (SEQNUM-3). 

The pack name must be WORK1 on drive 1 
(PACK-WORK1). 

The file named PAYROL (LABEL-PAY ROL) is 
copied to the low end (COMPRESS-LO) of the main 
data area on drive 1 (TO-D1) from the fifth position 
on tape (SEQNUM-5). 

The file named WORK (LABEL-WORK) is copied 
to drive 2 (TO-D2) from the fourth position on tape 
(SEQNUM-4). 

The pack name must be WORK2 on drive 2 
(PACK-WORK2). 

The file named UPDATE (LABEL-UPDATE) is 
copied to the high end (COMPRESS-HI) of the main 
data area on drive 2 (TO-D2) from the seventh 
position on tape (SEQNUM-7). 

The file named MASTER (LABEL-MASTER) is 
copied to drive 3 (TO-D3) from the third position on 
tape (SEQNUM-3). 

The file named BACKUP (LABEL-BACKUP) is 
copied to drive 4 (TO-D4) from the second position 
on the tape (SEQNUM-2). 

The pack name must be WORK4 on drive 4 
(PACK-WORK4). 
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Explanation: 
® The file compress program is loaded from F2. 


@ Output file (OCL sequence): 
— The file name is always BACKUP (NAME-BACKUP). 
— The backup files are copied to tape unit 3 (UNIT-T3). 
— The tape unit is a 9-track drive. 
The block and record lengths are 1536 (default value). 
The label of the tape volume is MASTER 
(REEL-MASTER). 


I 


® Control statement explanation: 
— The file named MASTER (LABEL-MASTER) is 
copied to position 1 (SEQNUM-1} on the tape. 
— The files located on drive 2 are copied to the tape 
starting at position 2 (SEQNUM-2). 
— The pack name on drive 2 must be PERSON 
(PACK-PERSON). 


Figure 4-57. OCL and Control Statements to Back Up One File 


from a Main Data Area and All the Files from 
Another Main Data Area 
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Explanation: 


@ The file compress program is loaded from F2. 


® Output file (OCL sequence): 
— The file name is always BACKUP (NAME-BACKUP). 
— The files are copied to tape unit 1 (UNIT-T1). 
— The tape unit is a 9-track drive. 
The block and record lengths are 1536 (defaulted). 
— The label of the tape volume is TAPE1 
(REEL-TAPE1). 


® Control statement explanation: 
— The files located on drive 2 (FROM-D2) are copied 
to tape starting at position 1. 
— The files located in drive 3 (FROM-D3) are copied to 
tape starting at the next available position. 


Figure 4-58. OCL and Control Statements to Back Up All the 
Files Contained on Two Main Data Areas 
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Explanation: 


@ The file compress program is loaded from F1. 


@ Input file (OCL sequence): 
— The file name is always BACKUP (NAME-BACKUP). 
— The backup files are located on T1 (UNIT-T1). 
— The label of the tape volume is TAPE (REEL-TAPE). 


® Control statement explanation: 
— The backup files are copied to drive 2 (TO-D2). 
— The copied files are located at the high end of the 
main data area (COMPRESS-HI). 


Figure 4-59. Restore Backup Files to the High End of the Main 
Data Area 
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System History Area Display Program—$HIST 
PROGRAM DESCRIPTION 


The system history area display program has the following 
function: 


Print and/or copy to a device independent file a portion of 
or the entire system history area (SHA). 


The SHA is a special area on the system pack (the pack 
from which an IPL was performed) that contains the follow- 
ing information: 

@ OCL statements read by the system 


®@ OCL diagnostics issued 


© Control statements for system service programs read by 
the system 


@ OCC entered by the operator 

®@ OCC diagnostics issued 

® System messages issuecl 

@ Unit record restart messages 

© Operator responses to system messages 


® Display screen images 


Page of GC21-5162-1 
Issued 28 September 1979 
By TNL: GN21-5674 


The output of $HIST is an audit trail of system activity 
that can be used to debug program problems. This output 
will be copied to a device independent file, for use by other 
audit programs, by supplying a $HISTORY FILE statement 
(NAME-$HISTORY). SHA records written to unit record 
devices are truncated to the unit record length. 


The SHA is printed if you supply a PRINT control state- 
ment. The SHA is copied, not printed, if you supply an 
OUTPUT control statement. However, you must also 
supply a FILE statement with the OUTPUT control state- 
ment. The name of the file must be $HISTORY. 


You may choose not to supply a control statement. If so, 
$HIST will perform the functions of the following control 
statement and parameter: 


// PRINT HISTORY-CURRENT 


Note: The system history area copy program ($HACCP) 
can be used to copy the current portion of the SHA to a 
disk file. This program can be automatically invoked if 

the communications control program (CCP) is executing. 
For information about the system history area copy pro- 
gram ($HACCP), see the /BM System/3 Communications 
Control Program System Reference Manual, GC21-7620. 
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CONTROL STATEMENT SUMMARY 


The control statements you supply depend on the desired 
results. 


Functions Control Statement 


Print SHA entri 
an Mie // PRINT HISTORY. At4 


CURRENT 


Copy SHA entries 
to a device 
independent file 


// OUTPUT HISTORY- SE 


PARAMETER SUMMARY 


CURRENT 





Parameter Description 


HISTORY-ALL 


HISTORY-CURRENT 


PARAMETER DESCRIPTIONS 
HISTORY Parameter 


The HISTORY parameter allows you to select which part 
of the SHA that you wish to print and/or copy. The entire 
SHA is processed if HISTORY-ALL is specified. If 
HISTOR Y-CURRENT is specified, only those entries not 
previously printed and/or copied are processed. If the 
PRINT or OUTPUT control statement is omitted, 

HISTOR Y-CURRENT is assumed. 
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Process all entries in SHA 


Process SHA entries not previously printed and/or copied 





OCL CONSIDERATIONS 


The following OCL statements are needed to load the 
system history area display program: 


// LOAD $HIST,code 
// RUN 


The code you supply depends on the location of the simu- 
lation area containing the program. Possible codes are R1, 
Fi, R2, F2. 


The following OCL statements are needed to load the sys- 
tem history area display program and copy the output to a 
device supported by device-independent data management: 


// LOAD $HIST,code 
// FILE NAME-$HISTORY,UNIT-code, . . . 
// RUN 


Figure 4-60 is a sample printout of the system history area. system history area, see the appropriate related publication 
For additional information regarding the entries in the listed in the Preface. 


SHIST PRINT SYSTEM HISTORY AREA - ALL PAGE 013 


Qt * 4 R008 IPL 
(ENTER SYSTEM DATE 
$- $ID oD D1 I 
DATA MODULE D1DLDL IS ON D1 
$- $ ID OD D2 1 
@® DATA MODULE D2D2D2 IS ON D2 
$- $ ID OD D3 I 
DATA MODULE D3D3D3 IS ON D3 
$- $ 1D OD D4 1 
DATA MODULE D4D4D4 IS ON D4 


Ole x 1 ROO8 IPL 
{42/33/75 
3-3 CT EJ D FL DIA IPLED 
PROGRAM END 
(Oe as D FL DIA IPLED 
PROGRAM END 
=U GT EJ D FL DIA IPLED 
; PROGRAM END 
TM 102738 
@)s se 
LT - 4 SP UT FAI 


SPOOL FILE STARTED - NEW+D4,50,4 
L- 1 SP UT SAI 
SPOOL 1S ACTIVE PL 
L- 2 SP UT SAI 
SPOOL IS ACTIVE P2 
Lb - 1 SP UT SAT 
SPOOL IS ACTIVE P3 
@)s 


fs - IF CB D 123 
\ 1442 NOT READY 

S 1S 1442 RESTARTED 
@is ~ SIF cB D 123 
1 1442 NOT READY 
12)D RQ 


nn 


Oa® 


D 
() 54 S$ 1442 RESTARTED 

Gien *RDRQ 
@)F- S SP UT Rot 

i RDRQ IS CANCELED 

@)p Ra 
@ss§ - S§ SP UT RT I 

\ SPOOL RDR TERMINATED 

QORDR P141442 

T- 4 CT EJ D FL DLA IPLED 


L //MAINT JOB PARTITION-1 
4 // LOAD $MAINT,FL 
4 // RUN 
4 // COPY FROM-READER, TO-F1yRETAIN-RyLIBRARY-O, NAME-$TRACE 
a // END 
fM- LCT ES 1 MAINT  $MAINTOL 


12/31/75 10.31.19 10.31.25 
fe 
Sd. CT -“Ed I MAINT STEP 
12/31/75 10.31.19 10.31.26 
//HIST JOB PARTITION-1 
// CALL AByFL 
XXDH LOAD $HIST,FL 


BR 


Ne ee ee 


1 
1 
4 
XX RUN 
77 RUN 
(ap H 
@ I°// PRINT HISTORY-CURRENT 
L // END 
L- 4 CT ES I HIST DH 
® 42/31/75 10.31.26 10.31.37 
if. 
1-4 CT EJ I HIST STEP 
12/34/75 10.31.26 10.31.38 
@is - § SP UT CF DOL HIST DH 
1 CHANGE FORM TO TYPE BBB 
@!2 - 1 SP UT RED 14 3 JOB STEP 
\ RDRQ IS EMPTY/HELD 
@)s u S$ SP UT CF DOL HIST DH 
@'s - § SP UT TMI HIST DH 
\ 12/31/75 10.32.02 10.32.53 PRT 
2-2 CT EJ D FL DLA IPLED 
2 //K SOB 
@® 2 // LOAD SHIST, FA 
2 // RUN 
2 // PRINT HISTORY-ALL 
2 // END 


Figure 4-60 (Part 1 of 2). Printout of System History Area 


DATE 12/31/75 TIME-00.04.55 
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Q) This message is a result of pressing the PROGRAM 
LOAD key. 


@) Date prompt. 


G) This system information message indicates which 
3340 data modules are online at IPL time. 


@) Operator response to the date prompt. 


G) End of job message for each partition indicates IPL 
is complete. 


G6) Command to set time of day. Format is HH.MM.SS. 
@ Command to start spool. 
@) Spool status informational messages. 


@) Command to start spool reader. 


System message caused by a 1442 not ready condition. 


©) Message generated as a result of unit record restart. 
(2) Command to display reader queue. 
(3) Command to cancel reader queue. 


@) Command to assign the 1442 as the system input 
device for partition 1. 


5) Partition 1 is started. 


OCL and control statements to load and execute a 
program. 


Figure 4-60 (Part 2 of 2). Printout of System History Area 
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() End of step (ES) and end of job (EJ) messages. These 
messages are informational (1). They do not require 
a response. Job name is MAINT. Program name is 
$MAINT. Step number is 01. The job step was exe- 
cuted on 12/31/75. The time of day when program 
started executing was 10.31.19; the program ended 
execution at 10.31.25. 


OCL statements to call a procedure (AB) which loads 
and executes $HIST. 


Command to display the system history area on the 
display screen. 


Control statements for $HIST. 


@) System messages are similar to ”) . Program name is 


replaced by stepname (DH). 


©) System message that was issued by spool informing 
the operator to change forms. 


@) System message informing the operator that the input 
queue is empty /held. 


(4) Operator response to @) with a 1 option. 


@) SPOOL time recording optional message indicating 
time required to print (PRT) the output of jobname 
HIST, stepname DH. 


OCL and control statements used to obtain this 
sample printout of the system history area. 


EXAMPLES 


Figure 4-61 shows the OCL statement to load the system 
history area display program. Figures 4-62 through 4-66 
show the OCL and control statements to print and/or copy 
the SHA. 


‘0 24 
Lit 
AE 





Explanation: 


@ The system history area display program is loaded from 
F1, 


Figure 4-61. OCL Statement to Load the System History Area 
Display Program 





Explanation: 


@ The output is printed (PRINT). 


®@ All entries are printed (HISTORY-ALL). 


Figure 4-62. Control Statements to Print the Entire Contents of 
the System History Area 























Explanation: 


@ The system history area display program is loaded from 
Fi. 


@ The SHA is copied to tape (UNIT-T1). 
@ The SHA is printed (PRINT statement). 


@ All entries of the SHA are copied and printed 
(HISTORY-ALL). 


Figure 4-63. OCL and Control Statements to Copy and Print All 
Entries in the System History Area 
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Explanation: 


@ The system history area display program is loaded from 
Fi. 


@ The FILE statement causes the output to be copied to a 
disk file on D1 (UNIT-D1). 


® Output is not printed (OUTPUT statement); only the 
current entries are copied to the disk file 
(HISTOR Y-CURRENT). 


Figure 4-64. OCL and Control Statements to Copy the Current 
Entries to a Disk File Without Printing 
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Explanation: 


@ The system history area display program is loaded from 
Fi. 


@ The current entries in the SHA are printed. (A control 
statement and parameter is not supplied.) 


Figure 4-65. OCL Statements to Print the Current Entries in the 
System History Area 
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Explanation: 


© The system history area display program is loaded from 
Fi. 


@ Since a control statement is not supplied, the $HIST 
Program function defaults to the following control 
statement: 


// PRINT HISTORY-CURRENT 
© The current entries in the SHA are copied to a disk file. 
The name of the file is SHISTORY (NAME-$HISTORY). 
The file is on D1 (UNIT-D1). 


@ The current entries in the SHA are printed. 


Figure 4-66. OCL Statements to Print and Copy the Current 
Entries in the System History Area 
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Disk Initialization Program—$INIT 


PROGRAM DESCRIPTION 


The disk initialization program has the following fuictions: 


@® Write track and record addresses. 


@ Check for defective tracks (a process called surface 
analysis). 


@ Assign alternate tracks to any defective tracks. 
@ Write a volume label to identify each volume. 


@ Format the volume table of contents (main data area 
only). 


Before executing this program, you should be familiar with 
the volume format described in Part 3 of this manual. 


All volumes must be initialized before use. Volumes that 
have been initialized need not be reinitialized unless you 


want to erase their contents and rename them. 


This program can initialize a maximum of five volumes 
during one execution. 


4-100 


TYPES OF INITIALIZATION 
There are five types of initialization: 


@ FORCE is used primarily to initialize a new volume. 
This type of initialization erases all files on the entire 
volume (a main data area and its associated simulation 
areas). 


@ CLEAR initializes a main data area without checking 
for active files. The area must have been previously 
initialized. 


@ PRIMARY initializes a main data area if there are no 
active files in that area. 


@ CYLO initializes only cylinder 0 of a main data area. 
This is a fast way to reinitialize a main data area that 
had been previously initialized. 


@ RENAME is used to change the name, |D, and NAME360 
of a main data area without affecting the contents of that 
area. The area must have been previously initialized. 


Note: Except for FORCE, all types of initialization apply 
only to the main data area. The simulation area program, 
$SCOPY, is used for other functions associated with the 
simulation areas. 


CAUTION 

CLEAR and FORCE erase any active files on the area(s). 
CLEAR erases files only in the main data area. FORCE 
erases files on the entire volume (a main data area and its 
associated simulation areas). CYLO destroys any current 
VTOC entries in the main data area. 


CONTROL STATEMENT SUMMARY 


The control statement you must supply depends on the 
desired results. 


Type of Initialization Control Statement O) 


// UIN TyPE-FORCE© UNIT. code: “tl: ERASE: wo 
codes YES 


// VOL PACK-name[,ID-characters}] [, NAME360-characters] 
// END 


Pp 
rimary@) // VIN TYPE-PRIMARY,UNIT.{°0% [, VERIFY-number] 


// VOL PACK-name{,!D-characters] [, NAME360-characters] [,OLDPACK-name] 
// END 


CLEAR@) code 


‘ , [,VERIFY-number]} 
codes 


// VOL PACK-name[,ID-characters] [, NAME360-characters] [,OLDPACK-name] 
END 


// UIN TYPE-CLEAR,UNIT- { 


@) Volume previously 
CYLO initialized UIN TYPE-CYLO,UNIT.4 core} 


VOL PACK-name[,!D-characters] [, NAME360-characters] 
[,OLDPACK-characters] 
END 


RENAME@) 


UIN TYPE-RENAME,UNIT- 4/008 ; 
codes 


VOL PACK-name[,1D-characters] [, NAME360-characters] 
[,OLDPACK-characters] 
END 


Note: The control statement defaults to TYPE-FORCE if the data module is still in System/370 format and 
TYPE-CLEAR or PRIMARY initialization has been specified. If CYLO or RENAME is specified and the data 
module is still in System/370 format, the system issues an error message. 


@) Control statements are required in the order they are listed: UIN, VOL, END. 
@) One VOL statement is required for each main data area listed in the UNIT parameter of the UIN statement. The 
PACK parameter in the first VOL statement applies to the first main data area disk listed in the UNIT parameter. 


The PACK parameter in the second VOL statement applies to the second main data area listed in the UNIT 
parameter. 


@) If the TYPE parameter is omitted, TYPE-PRIMARY is assumed. 





Disk Initialization Program—$iINIT 4-101 


PARAMETER SUMMARY 


Parameter Description 
_—————————rraaaaaaoaoaoaoaoaoaoaoaeaeaeee eee elle OO ——eee—e—e_—_uoQee 


UIN (Input Definition) Statement 





TYPE-FORCE 


TYPE-PRIMARY 


TYPE-CLEAR 


TYPE-CYLO 


TYPE-RENAME 


UNIT-code 


UNIT-’code,code’ 


VERIFY-number 


NO 
ERASE.{ veel 


VOL (Volume) Statement 


PACK-name 


1D-characters 
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If the TYPE parameter FORCE is used, a main data area and its associated 
simulation areas are initialized without a check for active files. 


Primary initialization (main data area only). Tracks already initialized are rein- 
itialized. The program does not initialize disks containing temporary or 
permanent data files. 


Clear initialization (main data area only). Tracks already initialized are 
reinitialized. Active file checking is bypassed and any data on the tracks is 
destroyed. 


CYLO is an abbreviated initialization, initializing only cylinder 0 on a main 
data area that has been previously initialized on a System/3. This includes 
rewriting the volume label (PACK), the ID, and NAME360 entries, and 
deleting any VTOC entries that may be present on the main data area. 


RENAME initialization applies only to those entries on cylinder 0 of a main 
data area that contain the volume label (PACK), ID, and NAME360. 
Default values for 1D and NAME360 are used if the parameters are not 
supplied. 


One main data area. Possible codes are those for the main data areas. 


Multiple main data areas (maximum of five). Possible codes are those for 
the main data areas. 


Surface analysis. Done the number of times indicated (number can be 1-255). 
VERIFY-16 is assumed if the parameter is omitted. This parameter is only 
used for TYPE-CLEAR and TYPE-PRIMARY initialization. 


TYPE-FORCE initialization only. If you do not want to retest defective 
tracks use ERASE-NO. If you want to retest defective tracks, use ERASE-YES. 


Name of the main data area. Can contain any of the standard System/3 charac- 
ters except apostrophes, leading or embedded blanks, and embedded commas 
Its length must not exceed 6 characters. 


Additional identification. Can contain any of the standard System/3 characters 
except apostrophes, leading or embedded blanks, and embedded commas Ga); 
Its length must not exceed 10 characters. If you omit this parameter, blanks 
are written in the 1D field. 








NAME 360-characters 


Parameter Description 


Additional identification for the main data area. The name will be placed in 


the System/360 format 1 DSCB. Can contain any of the standard System/3 
characters except apostrophes, leading or embedded blanks, and embedded 


commas 


. Its length must not exceed 44 characters. If you omit this 


parameter, the program defaults to SYSTEM/3.DATA. 


OLDPACK-name 


Current name of the main data area to be initialized. Name can be any of the 


standard System/3 characters except apostrophes, leading or embedded 
blanks, and embedded commas (1). Its length must not exceed 6 characters. 


Q) This is due to their delimiter function. 


PARAMETER DESCRIPTIONS 
TYPE Parameter (UIN) 


The TYPE parameter indicates the type of initialization you 
want to do: PRIMARY, FORCE, CLEAR, CYLO, or 
RENAME. The type of initialization determines which 
tracks will be initialized. 


PRIMARY Initialization 


PRIMARY initialization applies to main data areas you 
have used but want to initialize again. Tracks that were 
previously initialized are initialized again. Any data on the 
tracks is destroyed. You can use PRIMARY initialization 
as often as you want. However, the program will not ini- 
tialize main data areas containing temporary or permanent 
data files. You must delete the files using the file delete 
program $DELET. 


FORCE Initialization 


FORCE initialization applies to volumes that are not for- 
matted for System/3. FORCE may also be used to reinitial- 
ize an entire volume that you have used. 


Note: The simulation area program, $SCOPY, must be used 
after a FORCE initialization to reformat the simulation 
areas. 





CLEAR Initialization 


The results of a CLEAR initialization are functionally 
equivalent to PRIMARY except that CLEAR initializes 
main data areas containing temporary or permanent data 
files. 


CAUTION 


All temporary data files or permanent data files are com- 
pletely erased. 


CYLO Initialization 

Cylinder zero (CYLO) initialization can be used if you want 
to reinitialize only cylinder 0. 

RENAME Initialization 

RENAME initialization may be used if you want to change 
PACK, ID, and NAME360 parameters. Default values are 
used if the ID and NAME360 parameters are not supplied. 
Note: \f an invalid System/3 label is found during 


RENAME initialization, a reinitialization must be done with 
FORCE, CLEAR, PRIMARY, or CYLO. 
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UNIT Parameter 


The UNIT parameter (UNIT-code) indicates the location of 
the volume you want to initialize. The program can initial- 
ize up to five volumes during one program run. 


The form of the UNIT parameter depends on the number of 
volumes you are initializing: 


@ For one volume, use UNIT-code. 
@ For two volumes, use UNIT-‘code,code’. 
Possible codes are those for the main data area. 


For all initialization, the order of codes must correspond to 
the order of VOL control statements. If, for example, you 
had used the parameter UN!T-‘D1,D2’, the first VOL state- 
ment applies to the data module on drive 1, and the second 
to the data module on drive 2. 


VERIFY Parameter 


The VERIFY parameter (VERIFY-number), used only for 
CLEAR and PRIMARY initialization concerns surface 
analysis. It enables you to indicate the number of times 
you want the program to do surface analysis on suspected 
defective tracks before judging whether or not tracks are 
defective. The number can be from 1 to 255. 


ERASE Parameter (UIN) 


The ERASE parameter concerns alternate track assignment. 
It applies only to volumes that have already been initialized 
and used, but which you are reinitializing using 
TYPE-FORCE initialization. 


The condition of tracks on such volumes was tested at least 
once before (during the previous initialization) and tracks 
that were found to be defective during surface analysis were 
assigned alternates. The ERASE parameter, therefore, 
enables you to indicate whether you want the program to 
(1) retest the tracks to which alternate tracks are already 
assigned or (2) leave the alternate tracks assigned without 
retesting the tracks. 


The parameter ERASE-YES means to retest. If you tell the 


program to retest, it erases any existing alternate track 
assignments and tests all tracks. 
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The parameter ERASE-NO means not to retest. If you tell 
the program not to retest, it tests only those tracks to which 
no alternate tracks are assigned. Alternate tracks previously 
assigned remain assigned. 


Defective tracks are not retested if the ERASE parameter 
is omitted. 


Surface Analysis 


Surface analysis is a procedure for testing the condition of 
tracks. It consists of writing test data on tracks, then read- 
ing the data to ensure that it was recorded properly. 


In judging whether or not tracks are defective, the program 
does surface analysis the number of times you specify in the 
VERIFY parameter. If you omit the VERIFY parameter, 
surface analysis is done 16 times. Tracks that cause reading 
or writing errors any time during surface analysis are con- 
sidered defective. Defective tracks can be assigned alter- 
nates. Each volume has 40 alternate tracks available. If the 
program finds more than 40 defective tracks, it considers 
the disk unusable and stops initializing it. 


Alternate Track Assignment 


Alternate track assignment is the process of assigning an 
alternate track to a defective track. If the disk initialization 
program finds a defective track during execution it assigns 
an alternate track to the defective track. The alternate is, 
in effect, a substitute for the defective track. Any time a 
program attempts to use the defective track, it automati- 
cally uses the alternate instead. Each volume has 40 alter- 
nate tracks. 


If tracks become defective after a volume is initialized, 
another program (see A/ternate Track Assignment Program) 
is used to assign alternate tracks. Volumes need not be 
reinitialized to assign alternate tracks. 


Note: During a CLEAR or PRIMARY initialization, sus- 
pected defective tracks may be encountered within an active 
or IPL simulation area for the volume being initialized. If 
so, a message is issued prior to end of job that suggests 
$ALT be run against the volume after the conditions that 
caused the message have been eliminated. 


PACK Parameter (VOL) 


The PACK parameter (PACK-name) applies to all types of 
initialization. During initialization, the disk initialization 
program writes a volume fabel on each main data area. It 
uses the name you supply in the corresponding PACK 
parameter. (One VOL control statement containing a PACK 
parameter is required for each unit.) 


The name can be any combination of standard System/3 
characters except apostrophes, leading or embedded blanks, 


and embedded commas (because of their delimiter function). 


(See Appendix A for a list of standard System/3 characters.) 
Its length must not exceed 6 characters. Examples of valid 
volume label names are 0,F0001, 012, A1B9, and ABC. 


In general, volume names are used for checking. Before a 
program uses a volume, its name is compared with a name 
you supply (either in OCL statements or control statements 
required by the program). If the names do not match, the 
program halts and prints a message. In this way, programs 
cannot use the wrong volumes without the operator know- 
ing about it. 


ID (Identification) Parameter (VOL) 


The |D parameter (1D-characters) applies to all types of 
initialization. It enables you to include a maximum of 10 
characters, in addition to the volume label name, to further 
identify a volume. The characters can be any combination 
of standard System/3 characters (Appendix A) except 
apostrophes, leading or embedded blanks, and embedded 
commas (because of their delimiter function). The informa- 
tion is strictly for your use; the system does not use it for 
checking. If you use the file and volume label display pro- 
gram to print the name, that program will also print the 
additional identification for you. 


NAME360 Parameter (VOL) 


The NAME360 parameter (NAME360-name) is used to 
specify a filename for data interchange with System/360- 
System/370. System/360-System/370 can use data on a 
System/3 data module by treating it like a file. System/3 
gives a default filename of SYSTEM/3.DATA. The 
NAME360 parameter can be used if you would like to code 
a filename of your own. 


NAME360 can contain any of the standard System/3 
characters except apostrophes, blanks, and commas. Its 
length must not exceed 44 characters. 


OLDPACK Parameter (VOL) 


The OLDPACK parameter (OLDPACK-name) is used to 
verify that a specific volume is online before initialization 
is started. If the name of the volume does not match the 
name you specify, the program halts. 


The specified name can be any combination of standard 
System/3 characters except apostrophes, leading or em- 
bedded blanks, and embedded commas. Its length must 
not exceed 6 characters. 
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OCL CONSIDERATIONS 


The following OCL statements are needed to load the disk 
initialization program: 


// LOAD $INIT,code 
// RUN 


The code you supply depends on the location of the simu- 
lation area containing the disk initialization program. 
Possible codes are R1, F1, R2, and F2. 


EXAMPLES 


Primary Initialization of Two Volumes 


Figures 4-67 and 4-68 are examples of OCL statements and 
control statements needed for the primary initialization of 
two volumes. 














Explanation: 


The disk initialization program is loaded from F1. 


Figure 4-67. OCL Load Sequence for Disk Initialization 
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Explanation: 


@ The main data areas on two volumes are being initialized 
(UNIT-‘D1,D2’ in UIN statement). 


@ The main data area (D1) is given the name 2222 
(PACK-2222 in first VOL statement). 


@ The main data area (D2) is given the name PAYROL 
(PACK-PAYROL in second VOL statement). Additional 
identifying information, 120276, is to be written on 
drive 2 (1D-120276). 


Figure 4-68. Control Statements for Primary Initialization of Two 
Volumes 


MESSAGES FOR DISK INITIALIZATION 


Message Meaning 
ess ss eee eee ee 


INITIALIZATION ON This message is printed when initialization of a volume is complete. ZZZ 
ZZZ COMPLETE indicates the unit (for example, D31) on which the initialization is complete. 















INITIALIZATION ON This message is printed when initialization of a volume must be terminated 
ZZZ TERMINATED for one of the following reasons: 






® Cylinder O head 0 is defective. 









@ More than 40 tracks are defective. 






@ Possible disk hardware error exists. 





After this message is printed, system message 33 occurs. ZZZ indicates the 
unit (for example, D1) on which the initialization is terminated. 






** ALTERNATE TRACKS These two messages are printed when a primary track is defective and an 
ASSIGNED** alternate track is assigned to it. XXXX is the number of the defective 
primary track. YYYY is the number of the assigned alternate track. 







PRIMARY TRACK XXXX 
ALTERNATE TRACK YYYY 










ALTERNATE TRACK This message is printed when an alternate track is defective. YYYY is the 
YYYY DEFECTIVE number of the defective track. 







Messages listed for the alternate track assignment program ($ALT) may be issued when executing TYPE-CLEAR or 
TYPE-PRIMARY initialization. 






Disk fnitialization Program—$INIT 4-107 


Chain Cleaning Program—$SKLEAN 
PROGRAM DESCRIPTION 
The chain cleaning program has the following function: 


Exercise the IBM 1403 Printer for the purpose of 
cleaning the print chain (train). 


The print chain is cleaned as each character is printed on a 
special type-cleaning paper. (See your local IBM repre- 
sentative regarding the availability of this special paper.) 


The chain cleaning program can be executed in any partition. 


However, before this program is executed or before print- 
ing occurs if the output is spooled, the 1403 printer ribbon 
must be removed and the type-cleaning paper installed in 
place of the current forms. The following PRINTER OCL 
statement should be used to cause a message for this 
purpose: 


// PRINTER DEVICE-1403, FORMSNO-forms number 


Note: An IMAGE statement must be supplied if the print 
chain to be cleaned is different than the print chain current- 
ly installed on the printer. For more information regarding 
the IMAGE OCL statement, refer to MAGE Statement in 
Part 1 of this manual. 
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OCL CONSIDERATIONS 


The following OCL statements are needed to cause a mes- 
sage and load the chain cleaning program: 


// PRINTER DEVICE-1403,FORMSNO-forms number 
// LOAD $KLEAN,code 
// RUN 


The code you supply depends on the location of the simu- 
lation area containing the chain cleaning program. Possible 
codes are R1, F1, R2, F2. 


After end of job for $K LEAN, the 1403 print ribbon should 
be re-installed, the type cleaning paper removed, and the 
proper forms installed. 


File and Volume Label Display Program—$LABEL 
PROGRAM DESCRIPTION 


The file and volume label display program has the following 
function: 


Display the volume table of contents (VTOC). 
This program can be used to: 


@ Print the entire volume table of contents (VTOC) from 
an area. 


@ Print only the VTOC information for certain data files. 
In both cases, the program also prints the name of the area. 


The printed VTOC information is a record of the contents 
of the area. There are many reasons why you might need 
the information. For example: 


®@ Before reinitializing a disk, you want to check its con- 
tents to ensure that it contains no libraries, permanent 
data files, or temporary data files. 


@ You want to determine the available disk space for 
libraries or new files. 


® You want specific file information, such as the file name 
designation (permanent, temporary, scratch), or the 
space reserved for the file. 


’ 


The control statements you supply for the program depend 
on the program use. 


STORAGE REQUIREMENTS 


The file and volume label display program requires an 8K 
partition size to display a simulation area VTOC. The pro- 
gram requires a 10K partition size to display a main data 
area VTOC without sort and a 10K through 18K partition 
size when sort is used. The amount of storage required 
when sort is used is a function of the number of entries in 
the VTOC. The amount of storage required is as follows: 


Storage Required 
for Program to 
Execute with Sort 


Number of 
VTOC Entries 


300 10K 
500 12K 
700 14K 
900 16K 
1000 18K 
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CONTROL STATEMENT SUMMARY 


The control statement you must supply depends on the 
desired results. 


Functions Control Statenient 


ME 
Print entire // DISPLAY UNIT-code,_LABEL-VTOC [ sort: VOCATION 
VTOC // END 


Print only file \ filename iS 


// DISPLAY UNIT-code,LABEL-4 


information filenames 


from VTOC // END 


q) For each use, the program requires the statements in the order they are listed: DISPLAY,END. 


@) The number of filenames you list for a program run may not exceed 20 (VTOC is considered one filename). 





PARAMETER SUMMARY (DISPLAY STATEMENT) 


Parameter Description 


UNIT-code Location of the area containing the VTOC information being printed. 
Possible codes are R1, F1, R2, F2, and those for the main data areas. 











LABEL-VTOC Print entire contents of VTOC. 

LABEL-filename Print VTOC information for one file. 

LABEL-’filename, filename...’ Print VTOC information for more than one file. 
SORT-NAME VTOC information is sorted into alphabetical order by filename. 


SORT-LOCATION VTOC information is sorted into physical location sequence. 


@) The number of filenames you list for a program run may not exceed 20 (VTOC is considered one filename). 
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PARAMETER DESCRIPTIONS 
UNIT Parameter 


The UNIT parameter (UNIT-code) indicates the location of 
the area containing the VTOC information being printed. 
Possible codes are R1, F1, R2, F2, and those for the main 
data areas. 


LABEL Parameter 


The LABEL parameter indicates the information you want 
printed: the entire contents of the VTOC or only the infor- 
mation for certain files. The VTOC is an area on disk that 
contains information about the contents of the area. 


SORT Parameter 


The SORT parameter can be specified only when 
LABEL-VTOC is specified. If SORT-NAME is specified, 
the VTOC information is sorted by filename into alpha- 
betical order. If SORT-LOCATION is specified, the VTOC 
information is sorted into physical location sequence. This 
function applies only to main data area VTOCs and requires 
additional main storage for sorting. 


ENTIRE CONTENTS OF VTOC 


The parameter LABEL-VTOC means to print the entire 
contents of the VTOC. The meaning of the information 
the program prints is given in the following chart. Headings 
that are listed are the ones printed by the program to 
identify the information. Figures 4-69 and 4-70 are ex- 
amples of VTOC printouts. 


If the program needs more than one page to list the file 


information, it prints the headings for the file information 
at the top of each new page. 
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PACK-F2F2F2 > UNIT-F2 DATE-O7/10/75 


DEVICE CAPACITY-400 


AVAILABLE SPACE ON PACK 
LOCATION TRACKS 
008 181 


SEQ FILE RE- FILE FILE 
NUM NAME TAIN DATE TYPE 


OOL DIRFI2 T 09/29/71 _D 
002 DIRL2A T O7/1L0/75 D 
003 RTNO3B P O7/L0/T5 S$ 
004 PDOO5B P O7/1L0/75 S$ 
005 SEQO9B P O7/1L0/75 SS 
006 CRTO3C P O7/1L0/75 § 
oo7 yTDOS5¢C P O7/1L0/75 § 
008 SEQO9C P OT/L0/75 § 
009 SEQULC P O7/1L0/75 = § 
O10 SEQLIC P 40/30/71 S 
OLL SEQLLC P LO/O1/71 S$ 
O12 ACROBC T O7/10/75  § 
O13 DIRL2C T O7/10/75 =D 
O14 ACPFOT P O7/10/75 = § 
015 SEQFO9 P O7/1L0/75 § 
OL6 PRLFOB T O7/1L0/75 § 
O17 PAYF1O T O7/L0/75 = § 


REC KEY 
LEN LEN 


00124 
00124 
00133 
00063 
00512 
00133 
00063 
00512 
00128 
00128 
00128 
00002 
OoL24 
00100 
00542 
00002 
04096 


TIME-09.90.57 


KEY DATA 
LOC START 


Figure 4-69. Simulation Area VTOC Printou 


PACK-D1DLDL UNIT-D1L DATE-07/09/75 


NO. OF ALTERNATE TRACKS AVAILABLE~40 


AVATLABLE SPACE ON PACK 


LOCATION TRACKS 


002/00 0364 
021/19 0821 
063/02 0756 
101/01 0599 
4323/10 OLL2 


SEQ FILE RE- FILE FILE 
NUM NAME TAIN DATE TYPE 


OOL DIRF12 T 07/09/75 D 
002 DIRL2A T 07/09/75 D 
003 DIRL2C T 07/09/75 D 
004 INDFO3 P O7/09/75 J 
005 INDFOS P OT/09/75 1 
006 INDFO7 P O7/09/75 I 
VOL SEQ NUM - 
OO? INDFO7A P OT/09/75 I 
008 INDFO8 T O7/09/75 I 
009 INDFLO T O7/09/75 1 
VOL SEQ NUM - 
O10 INDFLOA T 07/09/75 Ji 
OLL INDO3A P O7/09/75 I 
OL2 INDO3C P 07/09/75 I 
013 INDOSA P O7/09/75 
O14 INDOSC P O7/09/75 I 
O15 INDOBA T OT/09/75 i 
O16 INDO8BC T 07/09/75 1 
OL? OUTOL T 07/09/75 § 
O18 OuTo2 T O7/09/75 = § 
O19 OUTO3 T O7/09/75 § 
020 GUT04 T 07/09/75 § 
021 OUTOS T O7/09/75 « § 
022 QUTO6 T O7/O9/75 § 
023 QUTO7 T O7/09/75 § 
024 OUTOS T O7/O9/75 = § 
025 OUTO9 T 07/09/75 § 
026 OUTLO T 07/09/75 S$ 
027 OUTLL T O7/09/75  § 
028 OUT12 T O7/09/75 = § 
029 OUTL3 T O7/09/75 § 
030 OUTL4 F O7/09/75 = § 
O31 OUTL5S T 07/09/75 «= § 
032 OUTL6 T 07/09/75 § 
033 OUTL? T O7/09/75 = S$ 
034 OUTLB T 07/09/75 = § 
035 OUTLS T 07/09/75 = § 
036 SEQFO9 P OT/O9/75  § 
O37 SEQFLL P OT/09/75 § 
038 SEQO9A P O7/09/75 § 
039 SEQO9C P O7/09/75 S$ 
040 SEQLLA P O7/09/75 Ss 
O41 SEQLLC P O7/09/75 § 


REC 
LEN 


00124 
00124 
OOL24 
00133 
00063 
00100 
OL 


00100 
00002 
04096 
OL 

04096 
00133 
00133 
00063 
00063 
00002 
00002 
00096 
00255 
OO541L 
00096 
O0T6T 
00020 
00065 
00256 
00257 
04096 
oo001 
00100 
900L0 
ooL27 
00128 
00128 
OL024 
00032 
00064 
OO5hz 
0028 
00512 
o05L2 
00128 
00128 


KEY 
LEN 


TIME OO. 
KEY DATA 
LOC START 


00104 001/02 
00063 020/17 
00099 063/01 
LOKEY- 


00099 144/07 
00002 101/00 
04096 144/00 
LOKEY- 

04096 141/09 
00104 146/08 
00L04 140/04 
00063 145/04 
00063 139/00 
00002 144/05 
00002 137/10 


Figure 4-70. Main Data Area VTOC Printout ' 
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FILE 
LOC 


400 
394 
374 
339 
329. 
309 
274 
264 
258 
189 
196 
255 
249 
247 
237 
234 
208 


00.58 


FILE 
LOC 


147/06 
141/02 
137/02 
001/00 
020/04 
063/00 


144/06 
100/18 
143/19 


141/08 
146/06 
140/02 
144/11 
138/07 
444/03 
137/08 
166/00 
156/00 
165/00 
155/00 
164/00 
154/00 
163/00 
153/00 
162/00 
452/00 
161/00 
151/00 
160/00 
1450/00 
159/00 
149/00 
158/00 
148/00 
157/00 
1321/00 
147/08 
143/09 
137/17 
143/03 
137/11 


ID- 


FILE 
TRACKS 


006 
006 
020 
035 
o1Lo 
020 
035 
o1LO 
006 
007 
O12 
003 
006 
002 
010 
003 
026 


RECORD 
COUNT 


2o7 
297 
28 
52 
61 
28 
52 
61 
99 
99 
98 
54 
297 
TL 
Oo 
54 
38 


ID FIRSTPACK 


FILE 
TRACKS 


0002 
0006 
0006 
0020 
0035 
0002 


0005 
0003 
0004 


0035 
0020 
0020 
0035 
0035 
0003 
0003 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
6020 
0020 
0020 
0020 
0020 
0020 
0020 
0010 
oo12 
oo1Lo 
oc1Lo 
0006 
0006 


RECORD 
COUNT 


198 
594 
594 
28 
52 
65 


71 
54 


OP PRP EP EP EPP Pe Pe Pee 


© aro 
WOrRBA 


RECORDS 
AVAIL 


FOR ROK 
AO or 
895 
3361 
59 
895 
3361 
59 
189 
237 
478 
9162 
SO CK 
51 
120 
9162 
L 


RECORDS 
AVAIL 


ae ea ak 

eta a 

sek ae 
1635 
4239 
57 


HIKEY- 


420 
3894 
L 


HIKEY- 


102 
1635 
1635 
4239 
4239 
3894 
3894 
2559 

962 

479 
2559 

319 

12287 
3779 
959 
955 
59 
245759 
2456 
24575 
1934 
L919 
1919 

239 
7679 
3839 

240 
1055 

L79 

L179 

576 

477 


OCL SIZE 
PARAMETER 


6T 
6T 
20T 
35T 
LOT 
20T 


OCL SIZE 
PARAMETER 


65R 
00000005 
O000006F 


0000008 
35T 
20T 
20T 
35T 
B57: 

3T 

3T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
20T 
LOT 
L2T 
LOT 
LOT 

6T 

6T 


NEXT AVAIL 
RECORD 


OK 

FOR FR 
3174/24/41 
339/12/205 
334/02/001 
309/14/141 
274/42/205 
269/02/001 
260/01/129 
191/01/129 
198/01/001 
255/00/109 

ek 
248/03/189 
237/00/001 
234/00/109 
233/08/001 


NEXT AVAIL 
RECORD 


2K Re ok 

Sk RR 

SOR 
OOL/92/15/141 
020/17/13/205 
063/01/26/101L 


144/07/28/189 
101/00/01/109 
1444/02/33/001 


141/09/01/001L 
146/08/15/141 
140/04/15/141 
145/04/13/205 
139/00/13/205 
344/05/01/109 
137/10/01/109 
166/00/01/097 
1456/00/01/256 
165/00/02/256 
155/00/01/097 
164/00/03/256 
454/00/01/021 
163/00/01/066 
153/00/02/001 
162/00/02/002 
152/00/17/001 
1461/00/01/002 
151/00/01/101 
160/00/01/011 
150/00/01/128 
159/00/01/129 
149/00/01/129 
1458/00/05/001 
148/00/01/033 
457/00/01/065 
131/00/01/001 
147/09/01/129 
143/11/27/001 
137/19/27/001 
1443/03/01/0021 
137/12/02/129 


NEXT AVAIL 
KEY 


NEXT AVAIL 
KEY 


001/00/02/001 
020/04/08/256 
063/00/04/025 


144/06/04/097 
100/18/02/073 
143/19/01/089 


141/08/01/001 
146/06/02/001 
140/02/02/001 
144/11/08/256 
1438/07/08/256 
144/03/02/073 
137/08/02/073 


MEANING OF VTOC INFORMATION 


PACK-name Name of the area. 


UNIT-code Location of the area containing the VTOC information. 

DATE-xx/xx/xx Partition date. 

TIME-xx.xx.xx Time of day. 

{D-characters Additional area identification (if any). 

NUMBER OF ALTERNATE Number of alternate tracks available for assignment. Main data area only. 


TRACKS 
AVAILABLE-number 


TRACKS WITH ALTERNATE Address of primary tracks that have been assigned an alternate. Main data 
ASSIGNED area only. 


DEFECTIVE ALTERNATE Address of the alternate tracks that are defective. Main data area only. 
TRACKS 


DEVICE CAPACITY-number Disk capacity (number of tracks). Simulation area only. 


LIBRARY EXTENT Boundary of libraries on the simulation area. (If the simulation area 
contains no libraries, these headings are not printed.) 


Track on which library begins. If the simulation area contains both source 
and object library, START refers to begin- 

Track on which library ends. ning of source library and END refers to 
end of object library. 


EXTENDED END Object library only (simulation area only). Track on which extension to library 
ends. When object library is full, temporary entries can be placed in space 
following end of library, provided that space is available. 


AVAILABLE SPACE ON PACK Available disk space. 


LOCATION First track in available space (simulation area). First cylinder/track in 
available space (main data area). 


TRACKS Number of tracks available. 
SEQ NUM Line number. 
FILE NAME Name that identifies file in VTOC. 
RETAIN File designation: 
= Permanent 


= Temporary 
Scratch (simulation area only) 
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Heading Meaning 
a 


FILE DATE 


FILE TYPE 


REC LEN 


KEY LEN 


KEY LOC 


DATA START 


FILE LOC 


FILE TRACKS 


RECORD COUNT 


RECORDS AVAIL 


OCL SIZE PARAMETER 


NEXT AVAIL RECORD 


NEXT AVAIL KEY 


VOL SEQ NUM 
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Date given the file when file was placed on disk. 
File type: 
indexed 
sequential 
= direct 
= file used by spooling 
Number of characters in each record in file. 
Number of characters in each record key (indexed files only). 


Position in record occupied by last character of record key (indexed files only). 


Disk space reserved for indexed files only. START is the first main data area 
cylinder/track of the area. This refers to the data portion of the file. 


First track used by the file. For simulation area files, refers to a track number. 
For main data area files, refers to a cylinder/track number. 


Number of tracks allocated to the file. 


Total number of records currently in the file. 


Number of records that can be added to the file 


Parameter used on OCL statement when file was created. 
T = tracks 
R = records 


Beginning location of next available record in file. For simulation area, location 

is track, sector, and position within sector. For main data area, location is 

cylinder, track, fixed record, and position within record. 

Example: 099/18/006 = track 99, sector 18, positions 6. a 
050/02/12/006 = cylinder 50, track 2, fixed record 12, position 6. 


Indexed files only. Beginning location of next available record key in index 
portion of file. For main data area, location is cylinder, track, fixed record, 

and position within record. Main data area only. ® 
Example: 052/03/10/006 = cylinder 52, track 3, fixed record 10, position 6. 


VOL SEQ NUM applies to multivolume files only. It indicates the order of the 
volume as it relates to the other volumes containing the remaining portion of the 
file. Main data area only. 





Heading Meaning 


The high key from the previous volume. This field will be blank for the first 
volume of a multivolume file. Main data area only. 


The highest key that can be put on any specific volume of a multivolume indexed 
file. Main data area only. 


@) \f the field contains *****, there is insufficient space in the file for additional records or index entries. 


@) A packed key is printed on two print lines. For example, a packed key consisting of 0000125F is printed 


0015 
88 Q02E- 


FILE INFORMATION ONLY 


The parameter LABEL-filename or LABEL-‘filenames’ 
means to print certain file information from the VTOC. 
For one file, use LABEL-filename; for two files, use 
LABEL-'filename,filename’; and so on. (Use the names 
that identify the files in the VTOC.) You can list 20 file- 
names for a program run. The statement length, however, 
is restricted to 96 characters, and continuation statements 
are not supported. 


The program prints the file information for each of the files 
you list. This information is described under Meaning of 
VTOC Information. 


If the program needs more than one page to list the file 
information, it prints headings for the file information at 
the top of each new page. 





The ALLOCATED SPACE NOT EQUAL TO SPACE USED 
message is printed for one or more of the following reasons: 


@® The VTOC is not updated, even though space has been 
allocated for a file, because of an abnormal termination 
of an executing program. 


@ Aconsecutive or direct file is built over an indexed file 
(load to old). The new file overlays the data portion of 
the indexed file leaving the index portion unaltered. 

@ Acheckpointed program has not been completed. 

Unused space can be made available by use of the FORMAT 


statement (file delete program, $DELET), except when a 
consecutive or direct file is built over an indexed file. 
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OCL CONSIDERATIONS 


The following OCL statements are used to load the file and 
volume label display program. 


// LOAD $LABEL,code 
// RUN 


The code you supply depends on the location of the simu- 
lation area containing the system service program. Possible 
codes are R1, F1, R2, and F2. 


EXAMPLE 


Printing VTOC Information for Two Files 


Figures 4-71 and 4-72 are examples of the OCL statements 
and control statements needed to print VTOC information 
for two files. 














Explanation: 


@ The file and volume label display program is loaded from 
F1. 


Figure 4-71. OCL Load Sequence for File and Volume Label Display 














Explanation: 


@ The files for which information is printed are named 
BILLNG and INVO1 (LABEL-‘BILLNG, INVO1’ in 
DISPLAY statement). They are located on main data 
area D1 (UNIT-D1). 


Figure 4-72. Control Statements for Printing VTOC Information 
for Two Files 
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Library Maintenance Program—$MAINT 
PROGRAM DESCRIPTIONS 


The library maintenance program has the following func- 
tions: 


@ Allocate library space for user and system libraries. 


® Copy entries to, and display the contents of, libraries. 
Create a file from library entries. 


@ Delete library entries. 
®@ Modify source library entries. 
@ Rename library entries. 


The control statements you must supply depend on the 
function you are using. 


For further information about library format, organization, 
and location refer to Library Facilities in Part 2 of this 
manual. 


For information concerning multiprogramming considera- 
tions, see Library Maintenance Program under Multi- 
programming Considerations and Restrictions in Part 2 of 
this manual. 


Use of Disk Space 


The library maintenance program acquires library space on 
disk during each of the following functions: 


@ Create a library. 
@ Increase the size of a library. 


®@ Dynamically extend an object library to copy temporary 
entries to the library. 


If there is not a library on the simulation area, the space 
used to create one is the first contiguous space large enough 
to contain the library. If there is a library, the contiguous 
space directly following it will be used. 


The library maintenance program uses temporary work 
space on disk for each of the following functions: 


@ Reorganize a library. 
® Sort a directory before it is printed. 
@ Modify a source library entry. 


The work space must be on a simulation area except when 
the program is reorganizing a library, in which case it can 
also be on a main data area. 


To sort a library directory before printing, the library 
maintenance program requires a work space, on the simula- 
tion area specified by the FROM parameter, equal to the 
size of the directory. Thus, if your object library directory 
occupies, for example, six tracks, a work space of six unused 
tracks is required to sort that directory. When the function 
is complete, the work space is released and may be used by 
another library maintenance function, or by a program 
allocating files in another partition. 


ORGANIZATION OF THIS SECTION 

The five functions of the library maintenance program are 
described separately. Every description contains the 
following: 


®@ List of specific uses. 


@ Control statement summary indicating the form of con- 
trol statement needed for each use. 


@ Parameter descriptions explaining in detail the contents 
and meanings of the parameters. 


@ Function descriptions explaining the details of each 
function. 


Following the function descriptions are OCL considerations 
and examples. 
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$MAINT—Allocate Function CONTROL STATEMENT SUMMARY 


USES The control statements you must supply depend on the 
desired results. 
® Create (reserve space for) libraries, system history area, 
scheduler work area, and checkpoint/restart area. All volumes referenced by the control statements must 
remain online during the execution of $MAINT, 


@ Change the size of libraries and system history area. 


® Delete libraries. 


@ Reorganize libraries. 








// ALLOCATE TO-code,SOU RcE.| Hs oasect-{ ates! | SYSTEM. 1 VegtlHISTORY-number 
[,DIRSIZE-number] [,WORK-code] [,PACKO-name] 


Use) Parameter Needed @) 


Create TO-code,SOURCE-number,WORK-code @® 









Source Change size TO-code,SOURCE-number,WORK-code 
Library 






Delete TO-code,SOURCE-O 








Reorganize TO-code,SOURCE-R,WORK-code 







Create TO-code,OBJECT-number,SYSTEM- { ves 
Object Change size TO-code,OBJECT-number, WOR K-code ® 
Library 

Delete TO-code,OBJECT-0 






Reorganize TO-code,OBJECT-R,WORK-code © 





Q)yYou can indicate a source tibrary use, any object library use, or uses involving both libraries (for example, 
deleting the source library and changing the size of the object library). 






@) If you are indicating uses for both libraries, use only one TO parameter. (The libraries must be on the same 
simulation area.) Also, use only one WORK parameter if both uses require a WORK parameter. 






® The WORK parameter is needed only if the simulation area contains an object library that you are not deleting. 






@) The WORK parameter is not required if this is a compress in place. 
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CONSIDERATIONS AND RESTRICTIONS 


@ The allocate function cannot reference the libraries on 


the simulation area from which the library maintenance 
program or the system was loaded. For example, if the 
system was loaded (IPL) from F1 and the library mainte- 
nance program was loaded from R1, the source or object 
libraries on F1 and R1 cannot be referenced on an 
ALLOCATE statement. 


When a library is reorganized, its size is changed, or it is 
moved, all temporary entries in that library are deleted. 
This deletion applies to both the source and object 
libraries. 


When you are creating or changing the size of the source 
library on a simulation area that contains an object 
library, the object library is moved and reorganized and 
all temporary entries are deleted. 


The SOURCE or OBJECT parameter must be specified 
in the ALLOCATE statement. If the SYSTEM, 
DIRSIZE, or HISTORY parameter is specified, the 
OBJECT parameter must also be specified. 


If nested procedures are used, information contained in 
the scheduler work area can become invalid when the 
source library is reorganized or the size of the source 
library is changed (reallocated). Therefore, if you use a 
procedure to reorganize or reallocate libraries, do not 
call any further procedures contained within that nested 
procedure from the source library that is being reallo- 
cated or reorganized. 


Information can be lost from the system history area 
(SHA): when an object library is reorganized (unless 
compress in place is used), when the source library is 
allocated, or when the size of the source library is 
changed. 
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PARAMETER SUMMARY 


Parameter Description 
en  eEeEYE--aL—Cconm—uao"ETNEmaVMMD@’!”™”™?242$DFOA—O—@onnnnnnnnnnOOE OOO 


TO-code The simulation area that contains or will contain the library. Possible codes 
are R1, F1, R2, F2. 










SOURCE-number 
(no source library exists) 


Create a source library. Number indicates the number of tracks you want to 
assign. 















SOURCE-number Delete or change the size of the source library. Use depends on number: 
(source library 


already exists) Number Use 










0 Delete 
















Any number 
but zero 


Change size 





SOURCE-R Reorganize the source library. 










OBJECT-number 
(no object library exists) 


Create an object library. Number indicates the number of tracks you want 
to assign. 














OBJECT-number 
(object library 
already exists) Number Use 









Delete or change the size of the object library. Use depends on number: 













0 Delete 







Any number 
but zero 





Change size 





OBJECT-R Reorganize the object library. 






DIRSIZE-number 





Number of tracks you want for the directory when creating, reallocating, 
or reorganizing the object library. 







SYSTEM-NO 





Do not create a scheduler work area. This will be a program pack. 









SYSTEM-YES 





Create a scheduler work area and a system history area. This will be a 
system pack. 







HISTORY-number 





Number of tracks you want for a system history area. 














WORK-code The area containing space the program can use as a work area. Possible codes 


are R1, F1, R2, F2 and those for the main data areas. 







PACKO-name 





Name of the simulation area specified by the TO parameter. 
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PARAMETER DESCRIPTIONS 
TO Parameter 


The TO parameter (TO-code) indicates the location of the 
simulation area that contains, or will contain, the library. 

If the program use involves both libraries, the libraries must 
be on the same simulation area. The TO parameter cannot 
be the same unit from which the library maintenance pro- 
gram or system is loaded. Possible codes are R1, F1, R2, 
F2. 


SOURCE and OBJECT Parameters 

These parameters identify library uses: 
Parameter Use 
SOURCE-number 


OBJECT-number 
(number is not zero) 


If the simulation area contains 
no library, this parameter 
means create a library. 
Number is the number of 
tracks you want to assign to 
the library. 


If the simulation area contains 
a library, this parameter 
means change the library size. 
Number is the number of 
tracks you want to assign to 


the library. 
SOURCE-0 Delete the library. 
OBJECT-O 
SOURCE-R Reorganize the library. 
OBJECT-R 


DIRSIZE Parameter 


The DIRSIZE parameter allows the user to specify the size 
of the object library directory. The number of tracks speci- 
fied (1—9) overrides the SYSTEM parameter in determining 
directory size. Each track can contain 288 directory entries. 
One entry is needed for the directory, so the formula for 
the number of entries in a directory is (t x 288) —1, where 

t is the number of tracks. If the DIRSIZE parameter is 
omitted, the SYSTEM parameter determines the directory 
size. 


SYSTEM Parameter 


The SYSTEM parameter applies when you are creating, 
changing the size of, or reorganizing object libraries. It 
indicates to the program whether you intend to include 
system programs in the library to create a system pack from 
which an IPL may be performed. If system programs are 

to be included, a scheduler work area must be assigned. See 
Copy Function (Library-to-Library) in this manual for 
information about creating a system pack. 


Space for the scheduler work area is assigned immediately 
preceding the object library. If the simulation area contains 
a source library, the scheduler work area is between the 
source and object libraries. For information about the size 
of the scheduler work area, see Using the Allocate Function. 


The system history area is allocated a space preceding the 
scheduler work area. 


The following charts show the results of coding the 
SYSTEM parameter for different allocate uses. 
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Creating an Object Library Changing the Size of or Reorganizing an Object Library 
on a Simulation Area That Does Not Contain a Scheduler 
Work Area and a System History Area 





Scheduler System 
Work Directory History 
Parameter Area Size! Area Scheduler System 
Work Directory History 
SYSTEM-YES Created 3 tracks Created Parameter Area Size} Area 
SYSTEM-NO Not 1 track Not SYSTEM-YES Created Not Created 
created created changed 
Not coded Not 1 track Not SYSTEM-NO Not Not Not 
created created created changed created 
Ss Not coded Not Not Not 
The directory size is overridden if the DIRSIZE parameter is created changed created 
coded, 


'The directory size is overridden if the DIRSIZE Parameter is 
Changing the Size of or Reorganizing an Object Library coded. 
on a Simulation Area That Contains a Scheduler Work 
Area and a System History Area 


HISTORY Parameter 
Seneduler Syste Every system pack must have a system history area (SHA), 
which is used to store OCL, OCC, system messages, message 
responses, control statements, and other information (see 
SYSTEM-YES Retained Not Rovained $HIST). The HISTORY parameter in the ALLOCATE 
statement allows you to specify the size of the SHA on the 


Work Directory History 
Parameter Area Size! Area 





changed (existing ee ea : 
enitrins system pack. The minimum size is 2 tracks; the maximum 
‘ayy be is the number of tracks in the available area. If HISTORY 
lost) is not specified when you are allocating space on a simula- 


tion area, the size defaults to 2 tracks. The size of the SHA 
SYSTEM-NO Banaved Alot Ramavea remains unchanged, unless it is altered by a HISTORY 
parameter. See System History Area under System Facili- 


changed th é ae ; Pome 
ties in Part 2 of this manual for additional information in 
Not coded Retained Not Retained determining the number of tracks to be specified for the 
bet HISTORY parameter. 
changed (existing 
entries 
Tey Fe WORK Parameter 
lost) 


The WORK parameter (WORK-code) indicates the location 
h h ntain . Library entries are 
The directory size is overridden if the DIRSIZE Parameter is phic ee wate tal ma wore ated Oraey, 
coded. temporarily stored in the work area while the program 
moves and reorganizes libraries. Possible codes are R1, F1, 
R2, F2, and those for the main data areas. 
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Size of the Work Area 


The work area must be large enough to hold the directory 
and the permanent entries of the source library, object 
library, or both libraries depending on the program use. If 
you are combining uses, such as changing the sizes of both 
libraries, the work area must be large enough to hold the 


contents of both libraries. 
Use 


Create a source library 
(an object library exists). 


Change source library size 
(an object library exists). 


Change source library size 
(an object library does 
not exist). 


Reorganize source library. 


Change object library size. 


Reorganize object library. 


Contents of Work Area 
Object library 

Source library and object 
library 


Source library 


Source library 


Object library, if not com- 
press in place (see Com- 
press in Place.) 


Object library, if not com- 
press in place (see Com- 
press in Place.) 


tf the WORK parameter is supplied and is not required, it 
will be ignored and the message WORK PARAMETER 


IGNORED will be logged. 


Location of Work Space 


The program uses the last available space !arge enough to 
hold the library or libraries. 


Location of Area Containing the Work Space 


The work space can be on any area on any volume. How- 
ever, it cannot be the same simulation area as the one you 
specified in the TO parameter. The only requirement is 
that the area have space available large enough for the work 
area. The program works faster if the simulation area con- 
taining the libraries is on a different drive than the area 
containing the work space. 


PACKO Parameter 


The optional PACKO parameter (PACKO-name) verifies 
that the correct library is being accessed before the pro- 
gram performs the allocate function. If supplied, the 
program compares the name given in the PACKO parameter 
with the name in the volume labe! on the simulation area 
specified by the TO parameter to ensure that they match. 
If not supplied, no verification is done. 


The name can be any combination of standard System/3 
characters except apostrophes, leading or embedded blanks, 
and embedded commas. Its length must not exceed 6 
characters. See Appendix A for a list of standard System/3 
characters. 
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USING THE ALLOCATE FUNCTION 

Creating a Source Library (SOURCE-number) 

Source Library Size 

@ Minimum: One track. 

@ Maximum: Number of tracks in the available area. 


© Regardless of the number of tracks you specify, the first 
two sectors of the first track are assigned to the library 
directory. Additional sectors are used as needed for the 
directory. 


Placement of Source Library (An Object Library Exists): 


@ The source library must precede the object library. A 
disk area large enough for the source library must follow 
the object library because the program moves the object 
library to make room for the source library. To do this, 
it needs a work area (see WORK Parameter). The object 
library is reorganized, and all temporary entries are 
deleted. 


@ If you allocate a source library after deleting it, the 
Program automatically moves the object library to make 
room for the source library. The starting location of the 
source library is the previous starting location of the 
object library. 


Disk Space Before Creating Source Library 












Available 
Space 
(15 tracks) 










Object Library 
(30 tracks) 


Customer 
Files 






Disk Space After Creating Source Library 



















Available 
Space 
(10 tracks) 


Ojbect 
Library 
(30 tracks) 


Source 
Library 
(5 tracks) 












Customer 
Files 





| 0-7 L. 8-1 2->|<—$ 13-42 —o}443-52 | 


Tracks 
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Placement of the Source Library (An Object Library does 
not Exist): The program assigns the source library to the 
first available disk area large enough for the library. 


If you allocate a source library after deleting it, the source 
library is assigned the same way. 


Changing the Size of (Reallocating) a Source Library 
(SOURCE-number) 


Any time the program changes the source library size, it 
reorganizes both the source and object libraries and deletes 
all temporary entries. (See Reorganizing a Source Library.) 
To do this, it needs a work area. (See WORK Parameter.) 


Making the Source Library Larger 


@ Jf the simulation area contains an object library, space 
must be available immediately following the object 
library. The program moves the object library to make 
tracks available at the end of the source library. 


@ if the simulation area does not contain an object library, 
space must be available immediately following the source 
library. 


Disk Space Before Tracks Are Added to Source Library 




















Source Object Available 














Library Library Space ot 
(10 tracks) (30 tracks) (15 tracks) 
| 0-7 Le 8-17 ee 18-47 —»le- 48-62 | 
Tracks 


Disk Space After 5 Tracks Are Added to Source Library 


















Source Available 







Object 










Customer 


Library Library Space Files 
(15 tracks) (30 tracks) (10 tracks) 
| o-7 es 8-22 ess 23-52 >}. 53-62» 
Tracks 


Making the Source Library Smaller 


® If the simulation area contains an object library, the pro- 
gram moves the end location of the source library to 
make the library smaller. The object library is moved, 
and space becomes available following the object library. 


@ If the simulation area does not contain an object library, 
the program moves the end location of the source library 
to make the source library smaller. 


Disk Space Before Source Library Size Was Decreased 



















Source 
Library 
(15 tracks) 







Customer 
Files 


Object Library 
(30 tracks) 






| 0-7 le 8-22 a 23-52» 


Tracks 


Disk Space After 5 Tracks Were Taken From Source 
Library 


















Available 
Space 
(5 tracks) 


Source 
Library 
(10 tracks) | 






Object 
Library 
(30 tracks) 










Customer 
Files 


| 0-7 [+ 8-17-»} 4 — 18-47 >< 48-52 


Tracks 


Deleting a Source Library (SOURCE-0) 


The library maintenance program makes the disk area 
occupied by the source library available for other use (disk 
files) by moving the starting location of the library to the 
beginning of the object library. 


Then, if you try to recreate the source library, $MAINT 
checks for sufficient library space for the source and the 
object libraries from the beginning of the object library. 


If you want to retain the deleted space for library usage, 
the OBJECT-R parameter should be used in addition to the 
SOURCE-O parameter on the same ALLOCATE statement. 
Then, the starting location of the object library is moved 
to the starting location formerly occupied by the deleted 
source library. 


Disk Space Before Source Library Was Deleted 















Source 
Library 
(15 tracks) 










Object Library 
(30 tracks) 


Customer 
Files 









| 0-7 bein lie ee 23-52» 


Tracks 


Disk Space After Source Library Was Deleted 
(SOURCE-0 only) 





ei Object Library Customer 
tis weelel (30 tracks) Files 
| 0-7 oa g2)— ee 23-62 >| 
Tracks 


Disk Space After Source Library Was Deleted With Object 
Library Reorganized (SOURCE-0 and OBJECT-R) 








Available 
Space 
(15 tracks) 












Object Library 
(30 tracks) 


Customer 
Files 








| 0-7 feet Sof oles 38-52—>| 


Tracks 
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Reorganizing a Source Library (GSOURCE-R) 
Reason for Reorganizing the Library 


Areas from which source library entries are deleted are 
completely reused for new entries. If an entry exceeds the 
space in such an area, the program puts as much of the 
entry as will fit in the area and continues the entry in the 
next available area. In this way, the program efficiently 
uses library space. This technique however, may decrease 
the speed at which those entries can be read from the 
library. Therefore, if you frequently add or delete source 
library entries, you should reorganize your source library 
periodically. 


Reorganizing the Library 

The program relocates entries so that no entry is started in 

one area and continued in another. All temporary entries 

are deleted. The program needs a work area. (See WORK 

Parameter. ) 

Creating an Object Library (OBJECT-number) 

Object Library Size 

@ Minimum: Three tracks including the directory tracks. 

@ Maximum: Number of tracks in available area. 

@ Library Directory: The first 3 tracks in the library are 
reserved for the library directory if the library is to con- 
tain system programs; otherwise, only the first track is 


used. If the DIRSIZE parameter is entered, the directory 
size specified is used. 
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@ Scheduler Work Area. The scheduler is a component of 
the System/3 SCP that reads and processes OCL state- 
ments. It uses a work area on disk (SWA) to temporarily 
save OCL file label information during the processing of 
a program. The area is allocated when SYSTEM-YES is 
specified. The work space is not included in the number 
you specify in the OBJECT parameter; the space is cal- 
culated and assigned by the library maintenance program. 
The minimum space required for the scheduler work 
area is 18 tracks. If you generated your system to 
support checkpoint/restart, the size of the scheduler 
work area is 33 tracks (including a checkpoint/restart 
area). 


Scheduler Work Area Scheduler Work Area 
with Checkpoint/ 


Restart 


without Checkpoint/ 
Restart 





18 tracks 33 tracks 

The scheduler work area contains F1 and F7 label informa- 
tion, an initiator table, control statement area, and miscel- 
laneous work areas. There is one scheduler work area for 
each partition. (See Scheduler Work Area under File Facili- 
ties in Part 2 of this manual.) 


Placement of Object Library (A Source Library Exists): 
Space for the object library must be available immediately 
following the source library. 


Placement of Object Library (A Source Library Does Not 
Exist): The program assigns the object library to the first 
available space that is large enough. 


Changing the Size of (Reallocating) an Object Library 
(OBJECT-number) 


Making the Library Larger 


The number of tracks you want to add must be available 
immediately following the object library. The program 
assigns the additional tracks to the library. (The starting 
location of the library remains unchanged.) 


Making the Library Smaller 


The program moves the end location of the object library 
to decrease the library size. Tracks, therefore, become 
available following the library. 


Reorganizing the Library 


Any time the program changes the library size it also re- 
organizes the library and deletes all temporary entries (see 
Reorganizing an Object Library). A work area is needed if 
other functions are being performed with the reorganization 
(see WORK Parameter). \f not, a work area is not used (see 
Compress in Place). 


Deleting an Object Library (OBJECT-0) 
The program makes the disk space occupied by the object 


library (and the scheduler work area and the system history 
area if this was a system pack) available for other use. 


Reorganizing an Object Library (OBJECT-R) 


Gaps can occur between object library entries when you add 
and delete entries. By reorganizing the library, these gaps 
are removed. When the library is reorganized, all temporary 
entries are deleted. A work area is needed if other functions 
are being performed with the reorganization (see WORK 
Parameter). \f not, a work area is not used (see Compress 

in Place). 


Compress in Place (oosecr. JR ) 
| number { 


\f an object library is to be reorganized, or the size is to be 
changed and this is the only function to be performed, the 
object library will be compressed in place. This means that 
the library will be reorganized with all gaps removed and all 
temporary entries deleted without the use of a work area. 
If supplied, the WORK parameter will be ignored and the 
message WORK PARAMETER IGNORED will be logged. 


If, however, a source library function is to be performed or 
if the directory size (DIRSIZE parameter) or the pack type 
(SYSTEM parameter) or the system history area size 
(HISTORY parameter) is to be changed in conjunction 
with an object library function, a work area will be used 
(see WORK Parameter). 
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$MAINT—Copy Function 


USES 


Reader-to- 
Library 


F ile-to- 
Library 


Library- 
to-File 


Library- 
to-Library 


Library- 
to-Printer 
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Description 


@ Add or replace a library entry. The 
reader is the system input device. 


Add or replace one or more library 
entries. A disk file is the input. 


Copy one or more library entries to 
a disk file. 


Copy one library entry (or those 
entries with the same name from 


all libraries). 


Copy library entries that have names 
beginning with certain characters. 


Copy all library entries. 


Copy minimum system. 


Print one library entry (or those 
entries with the same name from 
all libraries). 


Print library entries that have names 
beginning with certain characters. 


Print all library entries of a certain 
type. 


Print directory entries for library 
entries of a certain type. 


Print entries from all directories 
including system directory. 


Print system directory only. 





Library-to- 
Card or 
Diskette 


Library- 
to-Printer 
and-Card or 
Diskette 


Description 


@ Punch one library entry (or those 
entries with the same name from 
all libraries). 


Punch library entries that have 
names beginning with certain 
characters. 


Punch all library entries of a certain 
type. 


Print and punch one library entry 
(or those entries with the same 
name from all libraries). 


Print and punch library entries that 
have names beginning with certain 
characters. 


Print and punch all temporary or 
permanent library entries of a 
certain type. 





CONTROL STATEMENT SUMMARY 


The contro! statements you must supply depend on the 
desired results. 


All volumes referenced by the control statements must 
remain online during the execution of $MAINT. 


Reader-to- Library 


Add or Replace a Library Entry 


// COPY FROM-READER,LIBRARY- /NAME-name, 


vzDOUN 


1 
TO-code |,RETAIN- Ip [,PACKO-name] 


OR 
library entry 


// CEND sa Must always follow the source or object 
entry being placed into the source or object 
library. 

/*, /& or /. statements cannot be present in the entries 

being copied into the libraries. 

File-to-Library 


Add or Replace One or More Library Entries 


// COPY FROM-DISK,FILE-filename, TO-code 


: 
/RECL- oe /RETAIN-< P 
26 p 


[,PACKO-name] 


Example of Data in Disk File 
a) // COPY FROM-READER,LIBRARY-O,RETAIN-P, 
NAME-DECKO1 


load module 


// CEND 


@® // COPY LIBRARY-S,NAME-DECK02 
source module 


// CEND 


@) // END 


Library-to-File 
Copy One or More Library Entries to a File 
// COPY FROM-code,TO-DISK,FILE-filename 


80 


/RECL- 1S 


| [,PACKIN-name] 


Control Statements Following // COPY 


S 

P name ® 
// ENTRY LIBRARY- < O /NAME-< characters. ALL 

R ALL 

ALL } 


// NEND «df Required to terminate the copy to file. 


@ Only the LIBRARY and NAME parameters are re- 
quired. Other parameters are ignored. 


@) The // END statement read from the file is optional. 
It causes the next statement to be read from the 
system input device or procedure. A // END state- 
ment must still be read from the system input device 
or procedure to indicate the end of the library mainte- 
nance control statements. 


@) Any number of // ENTRY statements may precede 
the // NEND statement. 
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Library-to-Library 


Copy One Library Entry (or Entries with the Same Name 
from All Libraries) 


S 
P 
// COPY FROM-code,LIBRARY-< O iNAME-name, 

R 
ALL 

I 

TO-code | ,RETAIN-< P [,NEWNAME-name] 
R 
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[,PACKIN-name] [,PACKO-name] (1) 


NEWNAME parameter is needed in any of the follow- 
ing cases: 


® If you want the copy to have a different name than 
the original entry. 


@ If you want to replace an entry on the simulation 
area specified by the TO parameter with an entry 
from the simulation area specified by the FROM 
parameter, but the entries have different names. 


@ If you want the names of the copies to begin with 
different characters than the names of the original 
entries, the same number of characters must be 
in the NEWNAME parameter as in the NAME 
parameter. 


@ If the FROM and TO codes are the same. 


Note: NEWNAME cannot be DIR, ALL, or SYSTEM. 


Copy Library Entries that Have Names Beginning with 
Certain Characters 


S 
Pp 
// COPY FROM-code,LIBRARY: < O 
R 
ALL 
,NAME-characters.ALL,TO-code 
T 


,RETAIN- P [,NEWNAME-characters] 
R 


[,PACKIN-name] [,PACKO-name] 


Copy All Library Entries 


// COPY FROM-code,LIBRARY- “NAME-ALL, 


rPwmOoOUTNMN 


TO-code RETAIN: [,PACKIN-name] 


»v|A 


LPACKO-name] 


Copy Minimum System 


// COPY FROM-code,LIBRAR Y-O,NAME-SYSTEM, @ 
TO-code [,PACKIN-name] [,PACKO-name] 


© 


FROM and TO parameters cannot have the same code. 


Library-to-Printer-and/or-Card 


Print and/or Punch One Library Entry (or Entries with the 
Same Name from All Libraries) 


// COPY FROM-code,LIBRARY- ;NAME-name, 


rpwouvn 


LL 


PRINT 
TO- < PUNCH > [,PACKIN-name] 
PRTPCH 


Print and/or Punch Temporary and Permanent Library 
Entries that Have Names Beginning with Certain Characters 


Ss 
P 
// COPY FROM-code,LIBRARY- < O 
R 


ALL 


PRINT 
»NAME-characters.ALL,TO- < PUNCH 
PRTPCH 


[,PACKIN-name] 


Print and/or Punch All Temporary and Permanent 
Library Entries of a Certain Type 


// COPY FROM-code,LIBRARY- “NAME-ALL, 


DOVUM 


“PRINT 
TO- < PUNCH [,PACKIN-name] 
PRTPCH_ 


Page of GC21-5162-1 
Issued 28 September 1979 
By TNL: GN21-5674 


Print Directory Entries for Library Entries of a Certain Type 


/{/ COPY FROM-code,LIBRARY- iNAME-DIR, 


DOVN 


YES| 
TO-PRINT [,PACKIN-name] | coare { NO ] 


Print Entries from All Directories Including System 
Directory 


// COPY FROM-code,LIBRARY-ALL,NAME-DIR, 


TO-PRINT[,PACKIN-name] | coare {rey 


Print System Directory Entries Only 
// COPY FROM-code,LIBRARY-SYSTEM,NAME-DIR, 


TO-PRINT[,PACKIN-name] 


Print Directory Entries, Omitting Selected Entries 


iS 
P 
// COPY FROM-code,LIBRARY- < O /NAME-DIR, 
R 
ALL. 
name 
TORRINT ON: caecaihicy 


[,PACKIN-name] 


CONSIDERATIONS AND RESTRICTIONS 


@ When the library-to-file function is used, the FILE 
parameter on each COPY control statement must refer 
to a unique filename. Otherwise, previous entries in 
the file will be overlaid. 





The CDATE parameter is valid only if LIBRARY-O 
or LIBRARY-ALL is specified. 
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PARAMETER SUMMARY 


Parameter Description 
_ 


FROM-READER 


FROM-code 


FROM-DISK 


FILE-fitename 


LIBRARY- 


DOVUN 


LIBRARY-ALL 
LIBRARY-SYSTEM 
name 


NAME-< characters. ALL 
ALL 
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Entry to be placed in library is to be read from the system input device. 


The simulation area containing library entries to be copied, printed, or punched. 
Possible codes are R1, F1, R2, F2. 


The entry or entries to be placed into a library or libraries reside in a disk file. The 
disk file must be described by an OCL FILE statement 


For a file-to-library or library-to-file copy, this parameter is needed to identify the 
file. The filename must match the filename on the OCL FILE statement. 


For a file-to-library or library-to-file copy, this parameter gives the size of the disk 
records. Only 80- or 96-column card image records are allowed. If this parameter 


is omitted, 96 is assumed. 


Type of library entries involved in copy use. Possible codes are: 


Code Meaning 

Ss Source statements (source library) 
P OCL procedures (source library) 
Oo Object programs (object library) 
R Routines (object library) 


All types of entries (S, P, O, and R) from both libraries are involved in the copy use. 
Only system directory entries will be printed. 


Specific library entries on the FROM simulation area, of the type indicated in 
LIBRARY parameter, invotved in copy use. Possible information is: 


Information Meaning 
name Name of the library entry involved. 
characters.ALL Only those entries beginning with the indicated characters. 


For example, $MA.ALL means the library maintenance 
program ($MAINT). 


ALL All entries (the type indicated in LIBRARY parameter). 


Parameter 


Description 


NAME-SYSTEM 


NAME-DIR 


as 
RETAIN-< P 
R 


TO-code 


TO-PRINT 


TO-PUNCH 


TO-PRTPCH 


TO-DISK 


System programs that make up the minimum system and IPL information 
contained on cylinder 0 are copied. The minimum system is made up of 
system programs necessary to load and run programs. System programs 
necessary to generate and maintain the system, such as system service 
programs, are not included in the minimum system. 


Directory entries for all library entries of the type indicated in the LIBRARY 
Parameter are involved in the copy use. If the LIBRARY parameter is 


LIBRARY-ALL, system directory entries are also printed. 


Adding Entry to Library. RETAIN gives designation of the TO entry: 


Code Meaning 
T Temporary 
PorR Permanent 


Replacing Existing Library Entry. RETAIN gives designation of the TO entry 
and tells the program whether to issue a message before replacing entry: 


Code Meaning 

T Temporary designation. Issue message before replacing entry. 

P Permanent designation. Issue message before replacing entry. 

R Permanent designation. Do not issue message before replacing 
entry. 


Printing or Punching Entries. The RETAIN parameter is ignored. 


The simulation area that is to contain the copies of the entries. Possible codes 
are R1, F1, R2, F2. 


Entries are printed. 


Entries are punched or written to diskette (the diskette device must be specified 
as the PUNCH device). 


Entries are printed and punched, or printed and written to diskette (the diskette 
device must be specified as the PUNCH device). 


The entry or entries are to be copied to a disk file. The disk file must be described 
by an OCL FILE statement. 
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Parameter Description 
a 


NEWNAME-name Name you want used on the simulation area specified by the TO parameter to 
identify the entries being put on that simulation area. If you omit this parameter, 
the program uses the NAME parameter in naming the entries. 

















NEWNAME-characters Beginning characters you want to use in names identifying entries being put on TO 


simulation area. You must use the same number of characters as in the NAME 
parameter (NAME-characters.ALL). If you omit this parameter, the program uses 
the NAME parameter in naming the entries. 





OMIT-name When printing directory entries, omit the entry specified by name. 





OMIT-characters. ALL When printing directory entries, omit all entries with these beginning characters. 





PACKO-name Name of the simulation area specified by the TO parameter. 





PACKIN-name Name of the simulation area specified by the FROM parameter. 












E . 
CDATE-\a The optional CDATE-YES parameter specifies that the compilation date and time 


for the COBOL, FORTRAN, and RPG programs are to be printed; this is the same 
date and time that appeared in the heading during compilation (time is shown 
only if timer support was generated on the system doing the compilation). When 
CDATE-YES is specified, execution time may be increased because $MAINT must 
obtain the date and time from the object program. The date and time are not 
printed if CDATE-NO is specified or assumed. (The CDATE parameter, YES or 
NO, is valid only when LIBRARY-O or LIBRARY-ALL is specified.) 
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LIBRARY DIRECTORIES 
Source and Object Library Directories 


®@ The source and object libraries have separate library 
directories. Every library entry has a corresponding 
entry in its library directory. The directory entry con- 
tains such information as the name and location of the 
library entry. (See Figures 4-73 and 4-74.) 


@ The library maintenance program makes an entry in the 
directory after it has put the entry in the library. 


System Directory 


@ Each simulation area that contains libraries contains a 
system directory. The system directory contains infor- 
mation about the sizes of and available space in libraries 
and their directories. (See Figure 4-75.) 


@ The library maintenance program creates and maintains 
the system directory. 


NAMING LIBRARY ENTRIES 
Characters to Use 


Use any combination of System/3 characters except blanks, 
commas, quotes, and periods (Appendix A lists the charac- 
ters). The names of most IBM programs begin with a dollar 
sign ($). Therefore, to avoid possible duplication, do not 
use a dollar sign as the first character in the names you use 
for your entries. The first character must be alphabetic. 


Length of Name 


The name can be from 1 to 6 characters long. 


Restricted Names 


Do not use the names ALL, DIR, and SYSTEM. They have 
special meanings in the NAME parameter. 


Entries with the Same Name 


For each of the two physical libraries, source and object, 
there are two types of entries. The source library has type 
P and type S entries. The object library has type O and 
type R entries. Entries of the same type cannot have the 
same name, but entries of different types may. For ex- 
ample, two procedures in a source library cannot have the 
same name, but a procedure and a set of source statements 
can. 
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RETAIN TYPES 
Temporary Entries 


®@ Temporary entries are entries you do not intend to keep 
in your libraries. They are normally used only once or 
a few times over a short period. 


® In the object library, temporary entries are placed 
together following the permanent entries. Any time a 
permanent entry is added to the library, all temporary 
entries are deleted. Temporary entries are also deleted 
when you replace one permanent entry with another. 


@ In the source library, temporary and permanent entries 
can be in any order. One entry is placed after another 
regardless of their designations. Temporary entries, 
therefore, are not automatically deleted every time you 
add a permanent entry. However, when the source 
library is reallocated or reorganized, only permanent 
entries remain. 


® You can use temporary entries as often as you like until 
they are deleted. 


® Atemporary entry cannot replace a permanent entry. 


Permanent Entries 


® Permanent entries are entries you intend to keep in your 
libraries. They are normally entries you use often or at 
regular intervals (once a week, once a month, and so on). 


@ The program will not delete permanent entries unless you 
use the delete function of the library maintenance pro- 
gram to delete them, or the allocate function to delete 
the entire library. 
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SIMULATION AREA VERIFICATION 


The optional PACKIN (PACKIN-name) and/or PACKO 
(PACKO-name) parameters verify that the correct libraries 
are being accessed before the program performs the copy 
function. If the PACKIN parameter is supplied, the pro- 
gram compares the name given with the name in the volume 
label on the simulation area specified by the FROM param- 
eter to ensure that they match. If the PACKO parameter 
is supplied, the program compares the name given with the 
name in the volume label on the simulation area specified 
by the TO parameter to ensure that they match. If not 
supplied, no verification is done. 


The name specified in the PACKIN and/or PACKO param- 
eters can be any combination of standard System/3 charac- 
ters except apostrophes, leading or embedded blanks, and 
embedded commas. Its length must not exceed 6 characters. 
See Appendix A for a list of standard System/3 characters. 


USING THE COPY FUNCTION 
Reader-to-Library 
input 


The program reads one library entry. It can be any one of 
the following types: 


@ Source statements 

® Procedure 

@ Object program 

® Routine 

The entry is read from the system input device. 


The header record on an object deck (H in column 1) con- 
tains the date the deck was punched. This date is in 
columns 58—63 and is in the format of the system date, 
either mmddyy or ddmmyy. 


Output 


@ Duplicate characters are removed from source statements 
and procedures before they are put in the source library. 
The program does not check them for errors. 


© Object programs and routines are placed in the object 
library after sequence and checksum information is 
removed, 


Adding Entries 


@ The program can add a new entry to a library. The name 
of the entry is taken from the NAME parameter. See 
Naming Library Entries for valid names. The RETAIN 
parameter specifies whether the entry will be temporary 
or permanent. If the RETAIN parameter is omitted, 
RETAIN-T is assumed. (See Retain Types.) 


Replacing Existing Entries 


@ The program can replace an existing library entry with 
the entry you are putting in the library. The RETAIN 
parameter specifies the new retain type. If the RETAIN 
parameter is omitted, RETAIN-T is assumed. A tempo- 
rary entry cannot replace a permanent entry. 


@ The program can issue a message before replacing an 
existing entry. Whether it does depends on the RETAIN 
parameter you use. (See RETA/N Parameter.) 


®@ Before the new entry is added, the duplicate entry is 
deleted. Additional library space is not needed unless 
the new entry is larger than the old one. 


File-to-Library 
Input 


The disk file can contain one or more library entries. The 
entries must be in the format put out by the library-to-card 
function or by the linkage editor. The COPY statement at 
the beginning of each entry contains the name of the entry 
and the type of library (S, P,O, R). A CEND statement 
must follow each entry in the file. 


The disk file must be a sequential file and be defined by a 
FILE statement in the OCL for the library maintenance 
program. Multivolume files are not supported. 


Output 


The output from the file-to-library function is the same as 
for the reader-to-library function. 
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Library-to-File 
Input 


The program can copy one or more library entries from a 
library to a disk file. The types of entries can be: 


®@ Source statements 

@ Procedures 

@ Object programs 

@ Routines 

®@ All of the preceding types 

The NAME and LIBRARY parameters on the ENTRY 
statements specify which entries to copy. 

Output 

The output from the library-to-file function is of the same 
format as that from the library-to-card function. The out- 
put is written to a sequential disk file defined by an OCL 
FILE statement and created by the library maintenance 
program. Multivolume files are not supported. 
Library-to-Library 


Input 


The program can copy one or more library entries from 
one simulation area to another. The types of entries can be: 


® Source statements 

@ Procedures 

® Object programs 

®@ Routines 

@ All of the preceding types 
@ Minimum system 


The NAME and LIBRARY parameters specify which entries 
to copy. 
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Output 


@ The entries, regardless of their type, are copied from one 
simulation area to another without change. , 


@ Entries can be copied and renamed on the same simula- 
tion area by use of the NEWNAME parameter. (See 
NEWNAME Parameter and Naming Library Entries.) 


@ Copying a minimum system (LIBRARY-O, 
NAME-SYSTEM}, or all of the types (LIBRARY-ALL, 
NAME-ALL), creates a system pack from which an IPL 
can be performed. (Copying LIBRARY-ALL, 
NAME-ALL will create a system pack only if the simula- 
tion area specified by the FROM parameter is a system 
pack.) The object library on the simulation area you 
specify in the TO parameter must be empty; that is, it 
cannot contain any entries or deleted entries. Also, the 
object library on the simulation area specified by the 
TO parameter must have been allocated with a scheduler 
work area and a checkpoint/restart area at least as large 
as those on the simulation area specified by the FROM 
parameter. 


@ The RETAIN parameter specifies whether the entries will 
be temporary or permanent. If the RETAIN parameter 
is omitted, RETAIN-T is assumed. When the parameters 
LIBRARY-ALL and NAME-ALL or LIBRARY-O and 
NAME-SYSTEM are used, RETAiN-P is assumed and 
RETAIN-T is invalid. 


Adding Entries 


@ You can omit the NEWNAME parameter. If you do, the 
name used for the copy is taken from the NAME param- 
eter. (The copy will have the same name as the original 
entry.) 


@ If NAME-ALL is specified, the names by which the 
entries are identified on the simulation area specified by 
the FROM parameter are also used on the simulation 
aréa specified by the TO parameter to identify the 
entries. 


Replacing Existing Entries 


® The program can replace existing entries with the entries 
you are putting in the library. If the entry you are 
copying (the entry on the simulation area you identify 
in the FROM parameter) has the same name as the entry 
you are replacing (the entry on the simulation area you 
identify in the TO parameter), you must omit the 
NEWNAME parameter because the NEWNAME param- 
eter cannot be the same as the NAME parameter. If the 
names are not the same, you must use the NEWNAME 
Parameter to give the name of the entry being replaced. 


@ The program can halt before replacing an existing entry. 
Whether it does depends on the RETAIN Parameter. 
(See RETAIN Parameter.) 


@ A temporary entry cannot replace a permanent entry. 


Library-to-Printer and/or Card 


Types of Entries that Can Be Printed or Punched 


The program can print or punch one or more library entries. 


They can be any one of the following types: 

® Source statements 

® Procedures 

®@ Object programs 

® Routines 

® All of the preceding types (limited to entries having the 


same name and entries beginning with the same 
characters) 


The program can print (but not punch) the following types 
of directory entries: 


®@ Source statements 


Procedures 

@ Object programs 

@ Routines 

@ System directory 

© All of the preceding types 

The program will sort directory names before printing them 
only if there is enough work space to contain the directory 
on the simulation area specified by the FROM parameter. 
Printed or Punched Library Entries 


@ Duplicate characters are reinserted into source state- 
ments and procedures to make them readable. 


@ Object programs and routines are printed and punched 
after sequence information and checksum information 
(punch only) has been added. 


@ The library entries, when punched, are preceded by a 


COPY statement of the reader-to-library format and 
followed by a CEND statement. 
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Printout of Directory Entries 


@ The format of the source library directory printout is 
described in Figure 4-73. If there js.no source library, 
the NO SOURCE LIBRARY EXISTS message is logged. 
If a source library exists but is empty, the NO-SOURCE 
DIR ENTRIES EXIST message is logged. 


@ The format of the object library directory printout is 
described in Figure 4-74, If there is no object library, 
the NO OBJECT LIBRARY EXISTS message is logged. 
If an object library exists but is empty, the NO OBJECT 
DIR ENTRIES EXIST message is logged. 


@ A sample system directory printout is described in 
Figure 4-75. If there is no source library, the NO 
SOURCE LIBRARY EXISTS ON THIS PACK message 
is logged. If there is no object library, the NO OBJECT 
LIBRARY EXISTS ON THIS PACK message is logged. 


The following fields in the directory printout are not up- 
dated when an object library entry is deleted: 


@ The number of available directory entries 
@ The location of the next available directory entry 
@ The next available library sector 


@ The number of available library sectors 
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These represent only contiguous space that can be used; 
therefore gaps are not included. In the object library section 
of the system directory printout the lines UNUSED SPACE 
FROM DELETED PERMANENTS and UNUSED SPACE 
FROM DELETED TEMPORARIES describe the space 
occupied by gaps. This space could be made available for 
use if the object library were to be reorganized. If this 
space is excessive, the library should be reorganized. 


The final line of the system directory printout shows how a 
control statement might have been coded to result in the 
indicated allocation. 


Library information is given in both sectors and tracks. 
When the number of active or available sectors is not evenly 
divisible by 24, a rounding scheme is used to determine the 
size in tracks. The fields describing active library space are 
rounded up when converting from sectors to tracks, and the 
fields describing available library space are rounded down 

in the conversion. For example, in the source library sec- 
tion, the lines DIRECTORY SPACE, PERMANENT 
LIBRARY SPACE, and ACTIVE LIBRARY SPACE are all 
referring to active space. Thus the number of tracks has 
been rounded up whenever a fraction of a track was active. 
The number of tracks representing AVAILABLE LIBRARY 
SPACE was rounded down in the conversion from sector 
size to track size. 


PRINTOUT 


SOURCE DIRECTORY FROM XX VOL. ID XXXXXX MM/DD/YY HH.MM.SS? 


ADDRESS 


TYPE NAME  FIRST@ LAST@ ATTRI #SECTORS 
x XXXXXX XXX-XX XXX-XX Xx XXXX 





Explanation: 

Heading Meaning 

TYPE S = source statements 
P = procedure 

NAME Name of library entry (up to six characters) 

ADDRESS Addresses of first and fast sectors that contain the library entry. Addresses are 

(FIRST and LAST) expressed by track and sector numbers. Example: 008-03 means track 8, 
sector 3. 

ATTRI T = temporary 
P = permanent 

#SECTORS Total number of sectors used for the library entry. 





The time specified by HH.MM.SS is included in the printout only if the time-of-day function was selected during system generation. 


Figure 4-73. Source Library Directory Printout 
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PRINTOUT 


OBJECT DIRECTORY FROM XX VOL. 1D XXXXXX MM/DD/YY HH.MM.ss! 


DISK CYL/ 
TYPE NAME ADD SEC 
XXX XXXXXX TTT/SS CC/SS 


Explanation: 
Heading 


TYPE 


NAME 


DSK ADD 


CYL/SEC 


TXT- LINK EXT RLD ENTRY CORE TOT 
CAT ADDR BUF DISP PNT SEC ATTR LEVEL SEC CDATE-CTIME 
XXX XXXX XXX XX XXXX XXX XXXXK XXX XXXX XX/XX HH.MM 


Meaning 
The leftmost character printed indicates the attributes of the entry as follows: 


P = permanent 
T = temporary 


The middle character printed indicates the module class number as follows: 


Blank class 0 
1 = class 1 
2 = class 2 
3 = class 3 


Class numbers are significant when jobs are being placed on the spool reader queue 
by $QCOPY under CCP and $OCOPY user authorization is required. A user may not 
execute a program with a class number higher than that for which he is authorized. 
(See Program Classification under $OCOPY.) 


The rightmost character printed indicates the type of module. Its meaning 
is as follows: 


O = object module 
R = routine 


Name of library entry (up to 6 characters) 


Address where library entry begins on disk. Example: 015/10 means track 15, 
sector 10 (in decimal). T = track, S = sector. 


Address where library entry begins on disk (in hexadecimal). C = cylinder, S = sector. 


'The time specified by HH.MM.SS is included in the printout only if the time-of-day function was selected during system generation. 





Figure 4-74 (Part 1 of 3). Object Library Directory Printout 
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Heading 


TXT-CAT 


LINK ADDR 


EXT BUF 


RLD DISP 


ENTRY PNT 


CORE SEC 


ATTR 
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Meaning 


For object program, this number indicates the number of sectors used for the text 
portion of the library entry. Object programs consist of two parts: text and RLD. 
Text is the program; RLD is information used in loading the program for execution. 


For routines, this number is the category of the routine. This number is used by the 
overlay linkage editor for determining overlay structures. 


Object programs only. Assigned hexadecimal link-edit address of this library 
entry. !f the program has external buffers (attribute byte 1, bit 2=1 and attribute 
byte 2, bit 1=1), the low-order byte of the link-edit address is assumed to be X00’. 


If the program has external buffers (attribute byte 1, bit 2=1 and attribute byte 
2, bit 1=1), external buffer size is indicated in sectors. 


Object programs only. It indicates the hexadecimal position in which RLD infor- 
mation begins in the last text sector. If the last text sector contains no RLD 
information, the RLD displacement is 0, indicating that the information starts 

in the next sector. 


Object programs only. Main storage address (hexadecimal) where program execution 
begins before relocations. 


Main storage size, given in sectors, required to run the program. 
Byte 1: 


Bit O=1 Permanent entry 
0 Temporary entry 

Bit 1=1 Inquiry. This program requires that the Inquiry key be pressed to start 
processing. 

Bit 2=0 Must be Zero if attribute byte 2 bit 1=0. 

1 External buffers {if attribute byte 2, bit 1=1). This program uses disk 
data buffers that are outside the user program area but within the 
Partition (see note 1). 

Bit 3 Program class (see note 2). 

Bit 4=1 Source required. This program requires the allocation of the $WORK 
and $SOURCE files. $SOURCE must be filled either from the system 
input device or from a source library. This program can be preceded by 
the macro processor. If a// SWITCH statement containing 
1XXXXXXX was processed, the $SOURCE file is opened as input 
instead of output. 


een eG 


Notes: 


1. A checkpoint/restart program will have attributes of hex 0040 and a program with external buffers will have 
attributes of hex 2040. The checkpoint/restart and external buffers attributes are mutually exclusive. 
2. Attribute byte 1 bit 3 is the leftmost bit and attribute byte 2 bit 6 is the rightmost bit of a 2-bit binary program 


class number. 


Figure 4-74 (Part 2 of 3). Object Library Directory Printout 
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Heading Meaning 
ATTR Bit 5=1 Deterred mount. This program accepts mounting of data modules 
(Continued) during its execution. 


Bit 6=1 PTF applied. A program temporary fix (PTF) has been applied to 
this program. 
Bit 7=1 Overlay object program 


Byte 2: 


Bit O=1 System input dedication. The system input device must be dedicated to 
this program. The device may be released when no longer needed. 

Bit 1=1 Checkpoint/restart program (if attribute byte 1 bit 2=0). (See note 1.) 
External buffers (if attribute byte 1, bit 2=1). This program uses 
disk data buffers that are outside the user program area but within 
the partition (see note 1). 

Bit 2=1 Direct source read. This program can have a // COMPILE statement 
and a no source required attribute (byte 1, bit 4=0). The program will 
access the source itself. 

Bit 3=1 This program has been tink-edited or compiled using System Control 
Program Number 5704-SC2. 

Bit 4=1 Privileged program. 

Bit 5=1 Program common. This program requires that a new load address be 
calculated at load time to place it in main storage beyond its own 
program common region. 


Bit 6 Program class (see note 2). 
Bit 7=1 Memory resident overlay program. 
LEVEL Release level of system programs. For user programs, this level is a number 


assigned by the overlay linkage editor. For a COBOL, FORTRAN, or RPG II 
object program, the level is printed as COB, FOR, or RPG. 


TOT SEC Total number of disk sectors occupied by the library entry. 


CDATE-CTIME © This heading is for COBOL, FORTRAN, and RPG I! object programs; the date 
and time are printed only if the object program is compiled with release 3 or 
later of program number 5704-SC2. If CDATE-YES was specified on the COPY 
control statement, this is the date and time during which the object program 
was compiled; the same date and time appeared on the heading of the compile 
listing (time is shown only if timer support was generated on the system doing 
the compilation). The format of CDATE can be either mm/dd (month and day) 
or dd/mm (day and month) depending on the format selected for the system 
date during system generation. The format for CTIME is always hh.mm 
{hour.minute). If the CDATE parameter was not specified, the CDATE-NO 
parameter was specified, or the entry is for an R-module, there is no output for 


this heading. 
a a 
Notes: 
1. A checkpoint/restart program will have attributes of hex 0040 and a program with external buffers will have 


attributes of hex 2040. The checkpoint/restart and externa! buffers attributes are mutually exclusive. 
| L 2, Attribute byte 1 bit 3 is the leftmost bit and attribute byte 2 bit 6 is the rightmost bit of a 2-bit binary program 
class number. 





Figure 4-74 (Part 3 of 3). Object Library Directory Printout 
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SYSTEM DIRECTORY FROM FL VOLUME ID F1FLE1 05/03/76 00.04.19 Q) 


--LOCATION-—- --NUMBER-- 
LIBRARY AREA OVERVIEW DISK ADDRESS TRACKS SECTORS OF ENTRIES 


SOURCE LIBRARY ALLOCATED SIZE 50 1200 

OBJECT DIRECTORY ALLOCATED SIZE 120 1439 
OBJECT LIBRARY ALLOCATED SIZE 7200 

START OF LIBRARIES 

SYSTEM HISTORY AREA 

CHECKPOINT/RESTART AREA 

SCHEDULER WORK AREA 

END OF LIBRARIES 


SOURCE LIBRARY SECTION 


START OF SOURCE LIBRARY 
DIRECTORY SPACE 
PERMANENT LIBRARY SPACE 
ACTIVE LIBRARY SPACE 
AVAILABLE LIBRARY SPACE 

END OF SOURCE LIBRARY 


OBJECT LIBRARY SECTION 


START OF OBJECT DIRECTORY 095-00 
AVAILABLE PERMANENT DIRECTORY ENTRIES 098-17-147 
AVAILABLE TEMPORARY DIRECTORY ENTRIES 098-118-042 

END OF OBJECT DIRECTORY 099-23 

START OF OBJECT LIBRARY 100-00 
AVAILABLE PERMANENT LIBRARY SPACE 389-20 
UNUSED SPACE FROM DELETED PERMANENTS 
AVAILABLE TEMPORARY LIBRARY SPACE 390-22 
UNUSED SPACE FROM DELETED .TEMPORARIES 
ACTIVE LIBRARY SPACE 
PERMANENT OBJECT LIBRARY SPACE 
PERMANENT ROUTINE LIBRARY SPACE 

ALLOCATED END OF OBJECT LIBRARY 394-23 

EXTENDED END OF OBJECT LIBRARY 394-23 


SOURCE-50,DIRSIZE-5,OBJECT-300,HISTORY-4; SYSTEM-YES 


® The time specified by HH.MM.SS is included in the Printout only if the time-of-day function was selected during 
system generation. 





Figure 4-75, System Directory Printout 
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$MAINT—Delete Function 


USES 


®@ Delete a temporary or permanent entry from a library 
(or entries with the same name from alt libraries). 


® Delete temporary or permanent library entries that have 
names beginning with certain characters. 


@ Delete all temporary or permanent library entries of a 
certain type. 


CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


All volumes referenced by the control statements must 
remain online during the execution of $MAINT. 


Delete a Temporary or Permanent Library Entry (or Entries with the Same Name from All Libraries) 


Ss 
P 
// DELETE FROM-code,LIBRARY-< O ;NAME-name eran [,PACKIN-name] 
R 
ALL 


Delete Temporary or Permanent Entries with Names Beginning with Certain Characters 


S 
P 
// DELETE FROM-code,LIBRARY-< O »NAME-characters. ALL RETAIN [,PACKIN-name] 
R 
ALL 


Delete All Temporary or Permanent Entries of a Certain Type 


// DELETE FROM-code,LIBRARY- *NAME-ALL | ,RETAIN- t [,PACKIN-name] 
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CONSIDERATIONS AND RESTRICTIONS 


System modules cannot be deleted from the active 
system pack (the simulation area the system was loaded 
from at IPL time). 


Library maintenance program modules cannot be deleted 
from the active program pack for the partition in which 
the library maintenance program was loaded. 


When all temporary entries are deleted from the object 
library using LIBRARY-O, NAME-ALL, RETAIN-T, the 
temporary routines (LIBRARY-R) are also deleted. 


The RETAIN parameter must match the attribute of 
the entry in the library; otherwise the entry is con- 
sidered not found. RETAIN-T is assumed if the 
RETAIN parameter is omitted. 


The optional PACKIN parameter (PACKIN-name) 
verifies that the correct library is being accessed before 
the program performs the delete function. {f this param- 
eter is not supplied, no verification is done. 


$MAINT—Delete Function 
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PARAMETER SUMMARY 


Parameter Description 
a 


FROM-code The simulation area that contains library entries you are deleting. Possible codes 
are R1, F1, R2, F2. 












S Type of entries being deleted. Possible codes are: 
p- 
LIBRARY-< O Code Meaning 
R 
ALL Ss Source statements (source library) 






P 





Procedures (source /ibrary) 





O 





Object programs (object library) 





R 





Routines (object library) 






ALL 





All types of entries (S, P, O, and R) are being deleted 









name Particular entries, of the type indicated in the LIBRARY parameter, being 
NAME-< characters.ALL deleted. These entries are further identified by the RETAIN parameter. 
ALL Possible codes are: 







Code 





Meaning 






name Name of the library entry, or entries, being deleted. 










characters.ALL 





Entries that have names beginning with the indicated 
characters. You can use up to 5 characters. 
Example: NAME-INV.ALL refers to the entries 
having names that begin with INV. 








All entries (of the type indicated in LIBRARY 
parameter). NAME-ALL cannot be used with 






LIBRARY-ALL. 
reTAIN-{7 Designation of entries being deleted: 
Code Meaning 





T Temporary 









Pp 





Permanent 






PACKIN-name 





Name of the simulation area specified by the FROM parameter. The name 
can be any combination of standard System/3 characters except apostrophes, 
leading or embedded blanks, and embedded commas. Its length must not 
exceed 6 characters. See Appendix A for a list of standard System/3 characters. 
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$MAINT—Modify Function 


USES 


Maintain source statements and procedures by using a 
card reader. 


Reserialize a source library entry. 

List the statements in a source library entry. 
Remove statements from a source library entry. 
Replace source library statements. 


Insert statements into a source library entry. 


CONSIDERATIONS AND RESTRICTIONS 


Sequence numbers are a physical part of the source 
record and must be placed where they wil! not conflict 
with other data in the record. In a procedure they 
should be placed near the end of the record beyond the 
OCL and control statements’ keywords and parameters. 
The sequence numbers should be placed in source state- 
ments where they will not overlay data. For example, 
data could be destroyed if sequence numbers were placed 
in RPG II source statements that contained compile- 
time tables. 


At least three control statements must be entered to 
modify the source library. A MODIFY statement is 
needed to describe the library entry. A REMOVE, 
REPLACE, or INSERT statement describes the type of 
modification. A CEND statement indicates the end of 
the MODIFY control statements. 


The simulation area specified by the WORK parameter 
on the MODIFY statement must contain a work area 
large enough to hold the modified source library entry. 


The sequence numbers specified by the FROM-seqno, 
TO-seqno, and AFTER-seqno parameters on the 
REMOVE, REPLACE, or INSERT statements must be 
valid numbers and exist in the source library entry. 
There are no default values for these parameters. The 
number of digits entered must be the same as the 
number of positions specified by the SEQFLD 
parameter. 


@ Al! statements in a source library entry must have ascend- 


ing sequence numbers in the positions specified by the 
SEQFLD parameter. 


Multiple operations (REMOVE, REPLACE, INSERT) 
may be performed within the same MODIFY run if they 
are done in an ascending sequential order. That is, the 
FROM sequence number in a REMOVE or REPLACE 
statement must be greater than the last sequence number 
in the preceding statement. The AFTER sequence 
number of an INSERT statement must be equal to or 
greater than the last sequence number of the preceding 
statement. Consecutive INSERT statements must not 
have the same sequence number. 


When modification is complete, the directory entry is 
written back with a permanent attribute. 


The control statements following the MODIFY state- 
ment are read from the system input device. 


Since the REMOVE control statement is valid for both 
the $DELET program and $MAINT program, care should 
be used when a $DELET procedure is modified. The 
$MAINT program will attempt to determine if the 
REMOVE statement is a data record or a control state- 
ment. If a determination cannot be made, the program 
will halt and wait for the operator’s instructions. 


If LIST-YES is specified and a printer error (causing a 
system message) occurs during the listing of the source 
library entry, responding to the message with a 2 option 
causes the listing to stop. The modified entry will be 
placed back in the library before the function is termi- 
nated with the controlled cancel. 


The optional PACKIN parameter (PACKIN-name) 
verifies that the correct library is being accessed before 
the program performs the modify function. If not 
supplied, no verification is done. 
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CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


All volumes referenced by the control statements must 
remain online during the execution of $MAINT. 


Initiate Modification 


YES 
} WORK-code ,RESER-< NO Lists Not 
ONLY = 


S 
P 


[,SEQFLD-xxyy] [,INCR-number] [,PACKIN-name] 


// MODIFY NAME-name,F ROM-code,LIBRARY- 1 


Control Statements Following // MODIFY 
Delete all statements between and including the FROM and TO sequence numbers. 
// REMOVE FROM-<-seqno, TO-seqno 
Replace all statements between and including the FROM and TO sequence numbers with the statements supplied. 


// REPLACE FROM-seqno, TO-seqno 
1 - n statements to replace those removed 


Insert the supplied statements after the statement indicated by the AFTER parameter. 
// INSERT AFTER-seqno 
1 -n statements to be inserted 


// CEND sf Must foliow the control statements to terminate the modify function. 
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PARAMETER SUMMARY 


Parameter Description 
ee 


NAME-name Name of the entry you are modifying. This is the name that identifies the entry 
in the library directory. 






FROM-code 









Simulation area that contains the entry you are modifying. Possible codes are 
R1, F1, R2, F2. 





Lisrary.t 5! Type of library entry you are modifying. Possible codes are: 





Code Meaning 







S 





Source statements (source library) 







Pp 





Procedures (source library) 














WORK-code The simulation area containing space the program can use as a work area. Possible 


codes are R1, F1, R2, F2. 















YES Specifies whether reserialization should be performed when the entry is placed 
RESER-< NO. back in the source library. When reserialization is specified, the first record in 
ONLY the entry is assigned record number 0. Possible information is: 








Information 





Meaning 








YES The entry is reserialized. 





NO 









The entry is not reserialized. NO is assumed if the RESER 
parameter is omitted. 







Reserialize only; no other maintenance is performed. When 
this is coded, no REMOVE, REPLACE, INSERT, or CEND 
statements can be entered. 







LIST- YES Specifies whether the source library entry should be listed as the modified entry is 
NO placed back in the source library. NO is assumed if the LIST parameter is omitted. 
SEQFLD-xxyy The starting and ending positions of the field that contains the sequence number. 






The sequence number can be up to eight digits long. The starting position is 
entered first (xx) and then the ending position (yy). If this parameter is not 
entered, 9296 is assumed. 
















INCR-number Increment value for the sequence field if reserialization (RESER-YES or 
RESER-ONLY) is specified. The value can be up to five digits. If this parameter 


is not entered, a value of 10 is assumed. 








PACKIN-name 





Name of the simulation area specified by the FROM parameter. The name can be 
any combination of standard System/3 characters except apostrophes, leading or 

embedded blanks, and embedded commas. Its length must not exceed 6 characters. 
See Appendix A for a list of standard System/3 characters. 
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REMOVE, REPLACE, INSERT PARAMETERS 


FROM-seqno The sequence number of the first state- 
ment to be used in the operation. 


TO-seqno The sequence number of the last state- 
ment to be used in the operation. 


AFTER-seqno =‘ The sequence number of the statement 


after which the new statements are to be 
added. 
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$MAINT—Rename Function 

USES 

@ Change the name of a library entry. 

@ Change the name of library entries that have names 
beginning with certain characters. 

CONSIDERATIONS AND RESTRICTIONS 

® System modules should not be renamed on the active 
system pack (the simulation area from which the system 
was loaded during IPL). 

® Library maintenance modules should not be renamed on 
the active program pack for the partition in which the 
library maintenance program was loaded. 

® The optional PACKIN parameter (PACKIN-name) 
verifies that the correct library is being accessed before 
the program performs the rename function. If this 
parameter is not supplied, no verification is done. 


CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


All volumes referenced by the control statements must 
remain online during the execution of $MAINT. 


// RENAME FROM-code,LIBRARY- /NAME-name,NEWNAME-name[,PACKIN-name] 


// RENAME FROM-code,LIBRARY- »NAME-characters. ALL,NEWNAME-characters{,PACKIN-name] 
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PARAMETER SUMMARY 


Parameter Description 
eee 


FRON-code The simulation area that contains the entry you are renaming. Possible codes are 
R1, F1, R2, F2. 


Type of library entry you are renaming. Possible codes are: 
Henan Code Meaning 

S Source statements (source library) 

P Procedures (source library) 

Oo Object programs (object library) 


R Routines (object library) 


NAME-name Current name of the entry you are renaming. This is the name that identifies 
the entry in the library directory. 


NAME-characters.ALL Only those entries beginning with the indicated characters. You can use up to 5 
characters. 


NEWNAME-name New name you want to give the entry. Follow these rules to construct the name: 


1. You can use any System/3 characters except blanks, commas, quotes, and 
periods (Appendix A lists the characters). The names of most |BM programs 
begin with a dollar sign ($). Therefore, to avoid possible duplication, do 
not use a dollar sign as the first character in the names you use for your 
entries. The first character must be alphabetic. 


You can use up to 6 characters, but you cannot use the names ALL, DIR, 
and SYSTEM. They have special meanings in the NAME parameter. 


NEWNAME-characters Beginning characters you want to use in names identifying the copies. You can use 
use up to 5 characters. 


PACKIN-name Name of the simulation area specified by the FROM parameter. The name can be 
any combination of standard System/3 characters except apostrophes, 
leading or embedded blanks, and embedded commas. Its length must not exceed 
6 characters. See Appendix A for a list of standard System/3 characters. 





OCL CONSIDERATIONS 


The following OCL statements are needed to load the 
library maintenance program. 


// LOAD $MAINT,code 
// RUN 


The code you supply depends on the focation of the simula- 
tion area containing the library maintenance program. 
Possible codes are R1, F1, R2, F2. 


If the copy file-to-library or tibrary-to-file functions are to 
be used in this run of the $MAINT program, the necessary 
disk FILE OCL statements must follow the LOAD state- 
ment and precede the RUN statement. 


$MAINT—Rename Function 
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$MAINT—Examples 


Figures 4-76 through 4-93 illustrate the functions of the 
library maintenance program. Figure 4-76 is an example of 
the OCL needed to load the program. The other figures are 
examples of the control statements necessary to carry out 
the specified functions. 

















Explanation: 


@ The library maintenance program is loaded from F1. 


Figure 4-76. OCL Load Sequence for Library Maintenance 








Explanation: 


@ Libraries are being created on R1 (TO-R1 in ALLOCATE 
statement). 


@ Source library space is 12 tracks (SOURCE-12). 


@ Object library space is 85 tracks (OBJECT-85). The 
object library wilt contain system programs 
(SYSTEM-YES). Thus, the disk area will also include 
space for the scheduler work area. The system history 
area size will default to 2 tracks. 


@ The directory will be 3 tracks. 


Figure 4-77. Allocate Example: Creating Both Source and Object 
Libraries on a Disk 
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Explanation: 


@ The source library is located on R1 (TO-R1 in 
ALLOCATE statement). 


© The size of the source library is being changed to 15 
tracks (SOURCE-15). 


@ Any time the program changes the size of a library, it 
reorganizes the library. To do this, it needs a work area. 
This area is on F1 (WORK-F1). 


Figure 4-78. Allocate Example: Changing the Size of a Source 
Library 





Explanation: 


@ The object library is located on R1 (TO-R1 in 
ALLOCATE statement). 


@ The OBJECT-O parameter tells the program to delete the 
object library. !f a scheduler work area and system 
history area precede the object library, they are also 
deleted. 


@ The library maintenance program verifies that the simu- 
lation area name is R1R1R1 before the allocate function 
is performed (PACKO-R1R1R1). 


Figure 4-79. Allocate Example: Deleting the Object Library from a 
Disk 
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Explanation: 


@ System programs are in the object library on F1 
{LIBRARY-O and FROM-F1 in COPY statement). 


® The NAME parameter (NAME-SYSTEM) tells the 
program to copy the system programs. 


@ The simulation area that is to contain the copy is R1 
(TO-R1). 


@ The library maintenance program verifies that the simula- 
tion area name of the FROM unit is F1F1F1 
(PACKIN-F1F1F1) and that the simulation area name of 
the TO unit is R1R1R1 (PACKO-R1R1 R1) before the 
copy function is performed. 


Figure 4-80. Copy Example: Copying Minimum System from One 
Disk to Another 
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Explanation: 


All library directories and the system directory on R1 are 
printed (COPY statement): 


@ FROM identifies the simulation area containing the 
directories. 


® LIBRARY indicates which directories are to be printed. 


@ NAME and TO indicate that the program is to be print- 
ing directories. 


@ Entries beginning with a $ are not printed. 
@ Print the date and time of compilation for any COBOL, 


FORTRAN, or RPG user programs in the object library 
(CDATE-YES). 


Figure 4-81. Copy Example: Printing Library Directories 
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Explanation: 


@ LIBRARY-O, NAME-ACCT, and FROM-R1 in the 
COPY statement tell the program to read the object 
program named ACCT from R1. 


@ TO-F1 tells the program to copy the object program to 
F1. There is no NEWNAME parameter in the COPY 
statement. Therefore, the name the program will have on 
F1 is ACCT (NAME-ACCT). Since the old version of 
the program already exists on F1 under that name, the 
old version is replaced. 


@ The library maintenance program normally issues a 
message before replacing a library entry. The RETAIN-R 
parameter, however, tells the program to omit that 
message. 


Figure 4-82. Copy Example: Copying Object Program to F1 
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Explanation: 


@ FROM-Reader in the COPY statement tells the library 
maintenance program to read the module from the 
system input device. 


@ The procedure (LIBRARY-P) will be written to the 
source library on F1 (TO-F1), named COPYF1 
(NAME-COPYF1), and given the default attribute of 
temporary. 


@ All statements are entered into the library until the 
CEND statement is read to terminate the copy. 


Figure 4-83. Copy Example: Copying Procedure from System 
Input Device 
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Explanation: 


@ The OCL for a file-to-library copy must contain a FILE 
statement for the disk file. 


@ The filename on the COPY statement (FILE-BSCAFILE) 
matches the filename on the OCL FILE statement 
(NAME-BSCAFILE). 


@ The COPY statement does not contain an RECL param- 
eter, so a record length of 96 is assumed. 


®@ The library maintenance program verifies that the simu- 
lation area name of the TO unit is F1F1F1 before the 
copy function is performed (PACKO-F1F1F1). 


®@ All source and object decks in the disk file must have a 
// COPY statement as the first card image and a // CEND 
Statement as the last card image. When logged, the // is 
changed to XX to indicate that they were read from disk 
rather than from the system input device or procedure. 


@ The // END statement read from the file (printed XX 
END), causes the next statement to be read from the 
system input device or procedure. An END statement 
must still be read from the system input device or 
procedure to indicate the end of the library maintenance 
control statements. 


Figure 4-84. Copy Example: Disk File to Library 
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Explanation: 


@ The OCL for a library-to-file copy must contain a FILE 


statement for the disk file. 


@ The filename on the COPY statement (FILE-BACKUP) 
matches the filename on the OCL FILE statement 


(NAME-BACKUP). 


@ The library maintenance program verifies that the simula- 
tion area name of the FROM unit is R1R1R1 before the 
copy function is performed (PACKIN-R1R1R1). 


® A-sequential file with record length of 80 (RECL-80) 


will be created on D1. 


@ The file will contain entries from all libraries with names 
beginning with the characters PAY, all source library 
entries, and object entry INVENT. 


@ The copy to file BACKUP is terminated by the NEND 


statement. 


@ The END statement indicates the end of the library 


maintenance control statements. 


Figure 4-85. Copy Example: Library to Disk File 
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Explanation: 


@ The program deletes a set of source statements 
(LIBRARY-S in DELETE statement) named PAYROL 
(NAME-PAY ROL) from R1 (FROM-R1) that has a 
temporary attribute. 


Figure 4-86. Delete Example: Deleting an Entry from a Library 
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Explanation: 


® The entries being deleted are on R1 (FROM-R1 in 
DELETE statement). 


®@ The library maintenance program verifies that the simula- 
tion area name is R1R1R1 before the delete function is 
performed (PACKIN-R1R1R1). 


@ The program deletes all entries from both source and 
object libraries (LIBRARY-ALL) that have names begin- 
ning with the characters INV (NAME-INV.ALL), with 
temporary attributes. 


Figure 4-87. Delete Example: Deleting All Entries with Names that 
Begin with Certain Characters 
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Explanation: 


@ The entries being deleted are on R1 (FROM-R1 in 
DELETE statement). 


@ All temporary procedures are being deleted from the 
source library (LIBRARY-P,NAME-ALL). 


Figure 4-88. Delete Example: Deleting All Library Entries of One 
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Explanation: 
@ The source module named INPUT1 on R11 is being 
modified. 
@ The work space is on R1. 
@ The sequence numbers are in positions 1—5 of the state- 
ments. 
@ Sequence numbers 00124-00156 are being deleted from 
the module. 
@ The module is reserialized with increments of one. 
@ The module is not listed. 
Figure 4-89. Modify Example: Removing Source Statements from a 
Module 
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Explanation: 

@ The source module COST on F1 is being modified. 

® The library maintenance program verifies that the simu- 
lation area name of the FROM unit is F1F1F1 before 
the modify function is performed. 


@ The work space is on F1. 


® The sequence numbers are in positions 80—84 of the 
statements. 


© Astatement is being inserted after statement number 
00070. 


@ The module is reserialized with the default increment 
value of 10. 


® The module is listed. 


Figure 4-90. Modify Example: Inserting a Statement in a Source 
Module 
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Explanation: 

@ The procedure named POCO1 on R2 is being modified. 
@ The work space is on R1. 

@ The sequence numbers are in default positions 92—96. 


@ Statements with sequence numbers 00101—00102 are 
being replaced. 


@ The module is not reserialized. 


@ The module is listed. 


Figure 4-91. Modify Example: Replacing Statements in a Procedure 
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Explanation: 


@ R11 contains the entry being renamed (FROM-R1 in 
RENAME statement). 


@ The library maintenance program verifies that the simula- 
tion area name is R1R1R1 before the rename function 
is performed (PACKIN-R1R1R1). 


@ The entry is aset of source statements in the source 
library (LIBRARY-S). Its name is ACCT (NAME-ACCT). 


@ The entry name is being changed to ACCT1 
(NEWNAME-ACCT1). 


Figure 4-92. Rename Example: Renaming a Set of Source State- 
ments in a Source Library 
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Explanation: 

$MAINT is loaded from F1. 

The libraries on R1 are deallocated (if present). 
New library space is allocated on R1. 

The libraries are copied from F1 to R1. The object 
library is reorganized as it is copied. Temporary 


entries become permanent when copied (see Using 
the Copy Function, Library-to-Library, Output). 


6:6) OO 


© 


$MAINT is loaded from R1. 


The libraries on F1 are deallocated. 


OO. 


New library space is allocated on F1. 


The libraries are copied back to F1. R1 could be 
used as backup. It contains the same libraries as F1. 


Figure 4-93. Reorganizing the System Pack 
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Spool File Copy Program—$QCOPY 
PROGRAM DESCRIPTION 
The spool file copy program (S$QCOPY) executes under 


control of the system contro! program (SCP) or the com- 
munications control program (CCP). The functions of 


$QCOPY supported by each control program are as follows: 


@ System control program (SCP) 

— Copy an entire spool file from: disk to disk, disk to 
tape, or tape to disk. 

— Copy all or part of a spool print queue, spool punch 
queue, or spool reader queue to: a device indepen- 
dent file or an IBM 1403 Printer (print queue only). 

— Copy to the spool reader queue from: a device in- 
dependent file or the system input device. 

— Copy a display of the status of the spoo! queues to a 
device independent file. 

— Copy all or part of a spool queue from one spool file 
to another. 

~ Restore (copy) the print or punch records (which 
were previously intercepted on the spool file and 
copied by $QCOPY to a disk or tape file) to the print 
or punch device or to the spool print or spool punch 
queue. 

— Maintain the authorization file. 

— Assign class numbers to programs. 
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@ Communications control program (CCP) 


Copy all or part of a spool print queue, spool punch 
queue, or spool reader queue to a disk file. 

Copy to the spool reader queue from: a disk file, an 
IBM 3275 Display Station (Model 1 or 2), or an IBM 
3277 Display Station (Model 1 or 2). 

Copy a display of the status of the spool queues to: a 
disk file, an IBM 3275 Display Station (Model 1 or 2), 
or an IBM 3277 Display Station (Model 1 or 2). 

Copy all or part of a spool queue from one spool file 
to another. 

Restore (copy) the print or punch records (which 
were previously intercepted on the spool file and 
copied by $QCOPY to a disk file) to the spool print 
or spool punch queue. 

Restrict the use of $OCOPY to only those functions 
for which individual users are authorized, 


The spool file copy program can copy the active spool file 
as well as any inactive spool file. 
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CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on 
the desired results. 


Function Control Statements 


TAPE 


Copy the entire spool file Gl // COPYSP FROM- \ 0-4 Tape 
SP 


Copy selected job steps // COPYPRTO [UNIT-code] [,FORMSNO-xxx] 


from the print queue 
jobname stepname 
ROE: aca \ | stern ‘ characters ** 


NO 
|uewore is >» REMOVE- YES 
ONLY 


ADD 
ourrur {rite | [rive {2Rusra 


PRINT filename 


NO 


| Heaven: fe. \STOP-2 STEP 
FORM 


Copy selected job steps // COPYPCHQ [UNIT-code] [,CARDNO-xxx] 
from the punch queue 
jobname _ J stepname 
pOely: ‘ characters** \ stern ‘ arn] 


NO 
,REMOVE-< YES 


ONLY 


,OUTPUT- FILE [rie 
\Fiewars 


fate {rumen 
yeu | 


HEADER-| \STOP- et 
{¥83 sere | 


a This control statement is valid only when the spool file copy program is executed under the system control 
program. 
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Function 


Copy jobs to or from 
the reader queue 


Read $QCOPY control 
statements from a file 


Copy a display of the 
status of spool queues 
to a file 


Restore (copy) the print 
or punch queue records 
to the print or punch 
spool queue or device. 
These records were 
previously intercepted on 
the spool file and written 
by $QCOPY to a file. 
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Control Statements 
// COPYRDRQ [UNIT-code] [,RECL-nnn] 
FILE 
,INPUT-< READER [rie {READERO | 
TERMINAL waar 


[,KEY-characters] [,LOKEY-characters] 


[,HIKEY-characters] {,LOREC-number] 


FILE 
[,HIREC-number] [oureur. {Fn ; 


jobnam Ne 
,soBn- | 2 ee ,REMOVE- YES 
characters ONLY 
1 
:PARTITION-< 2 
3 


CONTROL 
filename 


EB // copyctre [rie 


ADD 
// DISPLAY [UNIT-code] | ,OUTPUT-< FILE 
TERMINAL 


RO 
[rue {FEMALE | pa 
wo 


// RESTORE rue. {RESTORE 
filename 


2080 era ..\ sree. vane - 
characters characters 


NO 


_— SPOOL 
{ ee | STEP = 
; xxx | | STOP- OUTPUT-2 PRINT 
| CARDNO FORM jer | 


CARD 


[,UNIT-code] 


1 | This control statement is valid only when the spool file copy program is executed under the communications 


contro! program. 
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Function Control Statements 






RQ 
Copy selected job steps // copYaQ- 2 wa § ,FROM- om _ TO- — 
SP SP 
(by queue) from one spool PQ 





file to another spool file. 





jobname stepname 
7 PN- 
sJOGN aa [sre (anne 













1 


,REMOVE- Ne /PARTITION-< 2 
YES 3 







1 
2 FORMSNO 
PRIORITY- | {EaRoNo |x| 
5 
the NO 
Maintain the // AUTHORIZE | LIST- 
eae , YES 
authorization file 
Assign class 
numbers to programs a // CLASSIFY PROGRAM-programname, UNIT-code, 
0 
CLASS | LIBRARY- 0 
‘ee ie R 
3 






[. PAC K-packname | 






// END 


This control statement is valid only when the spool file copy program is executed in a batch partition. 
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PARAMETER SUMMARY 


Parameter Description 


COPYSP Statement 





FROM-TAPE Copies the spool file from a tape file. The tape unit must be specified in an OCL 
FILE statement with the parameter NAME-$SPOOL. 


FROM-code Specifies the location of the area containing the spool file to be copied. Possible 
codes are those for the main data areas. 


FROM-SP Copies the active spool file. This parameter is valid only when spool is active. 


TO-TAPE Copies the spool file to a tape file. The tape unit must be specified in an OCL FILE 
statement with the parameter NAME-$SPOOL. 


Specifies the location of the area to receive the copy of the spool file. Possible 
codes are those for the main data areas. 


COPYPRTOQ Statement 
UNIT-code Identifies the location of the spool file containing the print queue to be copied. 
Possible codes are those for the main data areas. If this parameter is not specified, 


job steps are copied from the print queue on the active spool file. 


FORMSNO-xxx Copies only those job steps whose forms type matches the FORMSNO parameter. 


characters” * begins with the same characters that precede the **. 


JOBN- alee \ Copies only those job steps whose jobname either matches the JOBN parameter or 


STEPN- stepname Copies only those job steps whose stepname either matches the STEPN parameter or 
characters** begins with the same characters that precede the **. When STEPN is specified, JOBN 
must also be specified. 


Specifies the format of the copy of the data. FLR specifies a fixed length record 


LenctH. | and VLR specifies a variable length record. 


NO Specifies whether the job step is to be only copied (REMOVE-NO), copied and 
REMOVE- ¢ YES removed from the print queue (REMOVE-YES), or removed without being copied 
ONLY (REMOVE-ONLY). 


FILE Specifies whether the output is to be copied to a file or printed. If copied to a file, 
OUTPUT-< PRINT the output can be added to the current logical end of the file rather than at the 
ADD beginning of the file. 


FILE.) re Specifies the name of the file to which the output is copied. A FILE statement 


filename defining this file must be included in the OCL when the spool file copy program is 
loaded. 
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Parameter Description 


COPYPRTO Statement (continued) 


HEADER. NO Specifies whether a record containing information about the job step is to be 
YES placed in the output file immediately preceding the step. 
NO | Specifies whether a message is to be issued which indicates the forms type and the 
STOP-< STEP number of pages required to print the next job step. The message is issued before 
FoRM | each step is copied (STOP-STEP) or when the forms type changes (STOP-FORM). 


No message is issued if the parameter is STOP-NO (default). 


COPYPCHO Statement 


UNIT-code Identifies the location of the spool file containing the punch queue to be copied. 
Possible codes are those for the main data areas. If this parameter is not specified, 
job steps are copied from the punch queue on the active spool file. 


CARDNO-xxx Copies only those job steps whose card type matches the CARDNO parameter. 


JOBN. jobname Copies only those job steps whose jobname either matches the JOBN parameter or 
characters ** begins with the same characters that precede the **. 


STEPN. stepname Copies only those job steps whose stepname either rhatches the STEPN parameter or 
characters” * begins with the same characters that precede the **. When STEPN is specified, JOBN 
must also be specified. 


NO Specifies whether the job step is to be only copied (REMOVE-NO), copied and 
REMOVE. < YES removed from the punch queue (REMOVE-YES), or removed without being copied 
ONLY (REMOVED-ONLY). 


jeite OUTPUT-FILE specifies that the output is to contain the control information 
OUTPUT-< PUNCH (Q- and R-bytes) which is used by spool to punch the record. OUTPUT-PUNCH 
ADD specifies that the output is not to contain the control information. The 
OUTPUT-ADD parameter causes the same operation as the OUTPUT-FILE 
Parameter, except the output records are added to the current logical end of the 
file rather than at the beginning. 


FILE PUNCHO Specifies the name of the file to which the output is copied. A FILE statement 
filename defining this file must be included in the OCL when the spool file copy program 
is loaded. 


NO \ Specifies whether a record containing information about the job step is to be 


HEADER-< —— 3 
2 {xe placed in the output file immediately preceding the step. 


next job step to be copied. The message can be issued before each step is copied 
(STOP-STEP) or when the card type changes (STOP-CARD). No message is issued 
if the parameter is STOP-NO (default). 


(NO Specifies whether a message is to be issued which indicates the card type for the 


STOP. STEP 
CARD 
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Parameter Description 


COPY RDRO Statement 


UNIT-code Identifies the location of the spool file containing the reader queue. Possible codes 
are those for the main data areas. If this parameter is not specified, jobs are copied 
to or from the reader queue on the active spool file. 


RECL-nnn Specifies the length of the spooled records on the reader queue when copying to 
the reader queue. 


‘FILE 
INPUT-< READER Identifies the input record source when copying to the reader queue. 
TERMINAL 
“ : 
FILE- READERO Specifies the name of the file from which jobs are copied to the spool reader queue 
filename or to which jobs are copied from the spool reader queue. A FILE statement 
defining this file must be included in the OCL when the spool file copy program is 
loaded. 


KEY-characters This optional parameter specifies that when copying to the spool reader queue 
from an indexed file, only those records whose keys begin with the characters 
specified on this parameter are to be copied. The number of characters that can be 
included on this parameter is from 1 through 29. 


LOKEY-characters This optional parameter specifies that when copying to the spool reader queue 
from an indexed file, only those records whose key is greater than or equal to the 
characters specified on this parameter are to be copied. The number of characters 
that can be included on this parameter is from 1 through 29. 


HIKEY-characters This optional parameter specifies that when copying to the spool reader queue 
from an indexed file, only those records whose key is less than or equal to the 
characters specified on this parameter are to be copied. The number of characters 
that can be included on this parameter is from 1 through 29. 


LOREC-number This optional parameter specifies that the records whose relative record number 
in the file is equal to or greater than the number specified on this parameter are to 
be copied to the spool reader queue. The copy operation is stopped by either the 
last record on the file or the number on the HIREC parameter. 


HIREC-number This optional parameter specifies that the records whose relative record number in 
the file is equal to or less than the number specified on this parameter are to be 
copied to the spool reader queue. The copy operation begins with either the first 
record on the file or the number on the LOREC parameter. 


ADD 


OUTPUT- {ap} This optional parameter causes jobs to be copied from the spool reader queue to a 


file (QUTPUT-FILE); or, if OUTPUT-ADD is specified, the spool reader queue 
records are added to the current logical end of the file rather than at the beginning. 
If the OUTPUT parameter is not specified, the default operation will copy records 
from a file to the spool reader queue. 


JOBN- jobname This optional parameter specifies that when copying from the spool reader queue 
characters ** to a file, only those jobs are to be copied whose jobname either matches the JOBN 


x * 


parameter or begins with the same characters that precede the 
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Parameter Description 


COPY RDRO Statement (continued) 


1 
PARTITION-2 2 
3 
NO 


REMOVE- 2 YES 
ONLY 


COPYCTRL Statement 


FILE- CONTROL 
filename 


DISPLAY Statement 


UNIT-code 


FILE 


OUTPUT-< TERMINAL 


ADD 


FILE: DISPLAYQ 
filename 


wa 
Q-< RO 
PQ 


RESTORE Statement 


FILE. Feerone| 
filename 


JOBN- ‘ ee 
characters 


stepname 


STEPN- 
ie 


4-174 


jobname \ 


This optional parameter specifies that when copying from the spool reader queue 
to a file, only those jobs which will execute in the Partition specified on the 
PARTITION parameter are to be copied. 


When copying from a reader queue to a file, this optional parameter specifies whether 
the job is only copied (REMOVE-NO), copied and removed from the reader queue 
(REMOVE-YES), or removed from the reader queue without being copied 
(REMOVE-ONLY). 


Specifies the name of the file containing the control statements. A FILE statement 
that defines this file must be included in the OCL when CCP is started. 


Identifies the location of the spool file. Possible codes are those for the main data 
areas. If this parameter is not specified, the copy output is from the queues on the 
active spool file. 


Directs the copy output to the file identified in the FILE parameter. Or, if the 
program is executing under control of CCP, the copy output can be directed to the 
CCP terminal that made the request (QUTPUT-TERMINAL). The OUTPUT-ADD 
parameter causes the same operation as the OUTPUT-FILE parameter, except the 
output records are added to the current logical end of file rather than at the 
beginning. 


Specifies the name of the file that is to receive the copy output. A FILE statement 
defining this file must be included in the OCL when the spool file program is loaded. 


Specifies the queue to be displayed. WO specifies the print queue, RQ specifies the 
reader queue, and PQ specifies the punch queue. 


Specifies the name of the file from which the print or punch queue records are 
copied. An OCL FILE statement that defines this file must be included in the OCL 
statements when the spool file copy program is loaded. 


Copies the print or punch queue records for only those jobsteps whose jobname 
either matches the JOBN parameter or begins with the same characters that precede 
the **. 


Copies the print or punch queue records for only those job steps whose stepname 
either matches the STEPN parameter or begins with the same characters that precede 
the **. When the STEPN parameter is specified, the JOBN parameter must also be 
specified. 
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Parameter Description 


RESTORE Statement (continued) 


ange 


CARDNO { ~** 


STEP 


FORM 
STOP- CARD 


SPOOL 


OUTPUT-< PRINT 


PUNCH 


UNIT-code 


COPYQ Statement 
wa 


Q-< RO 
PQ 


code 
From. | & \ 


code 
TO. fe } 


JOBN. \ jobname 


characters” 


STEPN- \ 


NO 
Remove. |e. 


1 
PARTITION-< 2 
3 


stepname 
characters” 


‘ 


‘ 


Copies the print queue records for only those job steps whose forms type matches 
the FORMSNO parameter, or copies the punch queue records for only those job 
steps whose card type matches the CARDNO parameter. 


Specifies whether a message is to be issued before each job step is copied 
(STOP-STEP), when the forms type changes (STOP-FORM), or when the card 
type changes (STOP-CARD); the default parameter (STOP-NO) specifies that 
no message is to be issued. The message, if there is one, contains either the 
forms type and the number of pages for the next job step to be copied or the 
card type for the next job step to be copied. 


Specifies that the records copied from the file are to be either placed on the 
appropriate spool queue (OQUTPUT-SPOOL) or copied to the print or punch device 
(OUTPUT-PRINT or OUTPUT-PUNCH). 


Identifies the location of the spool file containing the print or punch queue to 
which the records from the file are to be copied. If this parameter is not specified, 
the active spool file is assumed. 


Specifies the queue from which job steps are to be copied. WQ specifies the print 
queue, RQ specifies the reader queue, and PQ specifies the punch queue. 


Specifies either the main data area that contains the spool file from which the queue 
is to be copied (FROM-code), or that the queue is to be copied from the active spool 
file (FROM-SP). The FROM-SP parameter is valid only if spool is active. 


Specifies either the main data area (TO-code) or the active spool file (TO-SP) is to 
receive the copied queue. If TO-code is specified and a spool file does not exist on 
this main data area, the spool file copy program creates one (SCP only). The TO-SP 
parameter is valid only if spool is active. 


Copies only those job steps whose jobname either matches the JOBN parameter or 
begins with the same characters that precede the *”. 


Copies only those job steps whose stepname either matches the STEPN parameter 


or begins with the same characters that precede the ** When STEPN is specified, 
JOBN must also be specified. 


Specifies whether the job step is to be removed from the queue after being copied. 


Copies only those jobs which can be executed in the partition specified on the 
PARTITION parameter. If this parameter is specified, the reader queue must also 
be specified (O-RQ). 
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Parameter Description 


COPYO Statement (continued) 


/1% 


2 
PRIORITY-< 3 

4 

5 
{FORMSNO} 
: “XXX 


UCARDNO { 


AUTHORIZE Statement 


NO 
LIST- {no 


CLASSIFY Statement 
PROGRAM-programname 


UNIT-code 


CLASS. 


WN Oo 


LIBRARY- tr 


PACK-packname 


4-174.2 


Copies only those job steps whose priority matches the PRIORITY parameter. 


Copies only those job steps whose forms type matches the FORMSNO parameter, 
Or Copies only those job steps whose card type matches the CARDNO parameter. If 
either of these parameters is specified, the copy must not be for the reader queue. 


Specifies whether a listing of authorization records is to be printed on the system 
printer after all changes to the authorization file have been made. 


Specifies the name of the program that is being assigned a class number. 


Specifies the location of the library containing the program to be classified. Possible 
codes are those for the simulation areas. 


Specifies the class number to be assigned to the program. 


Specifies whether the program to be classified is in the O or the R library. If this 
Parameter is not specified, the O library is assumed. 


Specifies the name of the simulation area indicated by the UNIT parameter. If this 
Parameter is not specified, the desired pack is assumed to be on the unit specified. 


This page intentionally left blank. 
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PARAMETER DESCRIPTIONS—COPYSP 
FROM and TO Parameters 


FROM specifies the device from which the spool file is 
copied. The TAPE (FROM-TAPE) Parameter, the SP 
(FROM-SP) Parameter, or one of the following main data 
area codes can be specified: D1, D2, D3, D31, D32, D33, 
D34, D4, D41, D42, D43, or D44. The tape unit must be 
specified by an OCL FILE statement with the filename 
$SPOOL. The copy from tape function can be used only 
for a tape that was previously created by the COPYSP 
function of the spool file copy program. 


TO specifies the device to which the spool file is copied. 
Either TAPE (TO-TAPE) or the following main data area 
codes can be specified: D1, D2, D3, D31, 032, D33, D34, 
D4, D41, D42, D43, or D44. The tape unit must be speci- 
fied by an OCL FILE statement with the filename 
$SPOOL. The spool file program does not support a tape- 
to-tape (FROM-TAPE, TO-TAPE) operation. 


FROM-SP causes the active spool file to be copied and is 
valid only when the spool is active. 


PARAMETER DESCRIPTIONS—COPYPRTO 
UNIT Parameter 


This optional parameter identifies the main data area 
containing the spool file from which the print queue is 
copied. One of the following main data area codes can be 
specified: D1, D2, D3, D31, D32, D33, D34, D4, D41, 
D42, D43, or D44. If this parameter is not specified, job 
steps are copied from the print queue on the active spool 
file. 


FORMSNO Parameter 


This optional parameter specifies that only those job steps 
whose forms type matches that supplied in the FORMSNO 
Parameter are to be copied. 


JOBN Parameter 


This optional parameter specifies that only those job steps 
whose jobname matches that supplied in the JOBN param- 
eter are to be copied. Copying multiple jobs, whose 
jobnames begin with the same characters, requires the 
specification of those characters followed by **. From 

1 through 7 characters can precede the **. 
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STEPN Parameter 


This optional parameter specifies that only those job steps 
whose stepname matches that supplied in the STEPN 
Parameter are to be copied. Copying multiple job steps, 
whose stepnames begin with the same characters, requires 
the specification of those characters followed by **. From 
1 through 7 characters can Precede the **. When the 
STEPN parameter is included, the JOBN parameter must 
also be included. 


LENGTH Parameter 


This optional parameter specifies that the data placed in 
the file be expanded to 134 bytes (LENGTH-FLR) or 
remain compressed as it exists on the spool file and placed 
contiguously in 134-byte records in the output file 
(LENGTH-VLR). If this parameter is not included, FLR 
is assumed. 


REMOVE Parameter 


This optional parameter specifies the following: the job 
Step is to be removed from the print queue when the copy 
Operation is complete (REMOVE-YES), the job step is to 
be removed from the print queue without being copied 
(REMOVE-ONLY), or the status of the job step is to re- 
main unchanged on the print queue after being copied 
(REMOVE-NO). For job steps with multiple copies and 
REMOVE-YES specified, the number of copies is reduced 
by one after the copy is complete and the job step remains 
on the print queue. If REMOVE-ONLY is specified, the 
jobsteps will be removed regardless of the number of 
copies. If this parameter is not included, NO is assumed. 


OUTPUT Parameter 


This optional parameter specifies that the copy of the 
print queue either be directed to the file identified by the 
FILE parameter or be printed. 1f directed to the file, the 
control information (Q- and R-bytes) is included. {f 
OUTPUT-PRINT is specified, the format of the printed 
Output is the same as if the job had not been spooled. 
When OUTPUT-PRINT is specified, LENGTH-VLR is 
invalid. If the program is executing under CCP, 
OUTPUT-PRINT cannot be specified. The OUTPUT-ADD 
Parameter specifies that the output operation is to be the 
same as for OUTPUT-FILE except that if the output file 
is a disk file, the records are added to the current logical 
end of the file. 


FILE Parameter 


This optional parameter allows you to specify the name of 
the file to which job steps on the print queue are to be 
copied. When the spool file program is loaded, you must 
include an OCL FILE statement that defines this file. 


If the FILE parameter is not supplied, the filename 
PRINTQ is used by the spool file copy program. If either 
OUTPUT-PRINT or REMOVE-ONLY is specified the 
FILE parameter is ignored and the file is not used. 


HEADER Parameter 


This optional parameter specifies whether or not a record, 
which contains information about the job step to be 
copied, should be included immediately preceding the job 
step. If HEADER-YES is specified, the record is included; 
if HEADER-NO is specified or assumed, the record is not 
copied. If OUTPUT-PRINT is specified, the HEADER-YES 
parameter does not have any effect. 


STOP Parameter 


This optional parameter specifies whether a message is to 
be issued that indicates the forms type and the number of 
pages for the job step to be copied. The message can be 
issued before each step is copied (STOP-STEP) or before a 
change in forms type (STOP-FORM). The message is not 
issued if STOP-NO is specified or assumed. In addition to 
the STOP-STEP or STOP-FORM parameter, the message is 
issued only if OUTPUT-PRINT is specified and the spool 
file copy program is executing in a nonspooled partition. 


PARAMETER DESCRIPTIONS—COPYPCHO 
UNIT Parameter 


This optional parameter identifies the location of the spool 
file containing the punch queue to be copied. One of the 
following main data area codes can be specified: D1, D2, 
D3, D31, D32, D33, D34, D4, D41, D42, D43, or D44. If 
this parameter is not specified, job steps are copied from 
the punch queue on the active spool file. 
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CARDNO Parameter 


This optional parameter specifies that only those job steps 
whose card type matches that supplied in the CARDNO 
Parameter are to be copied. 


JOBN Parameter 


This optional parameter specifies that only those job steps 
whose jobname matches that supplied in the JOBN param- 
eter are to be copied. Copying multiple jobs, whose 
jobnames begin with the same characters, requires the 
specification of those characters followed by **. From 

1 through 7 characters can precede the **. 


STEPN Parameter 


This optional parameter specifies that only those job steps 
whose stepname matches that supplied in the STEPN 
parameter are to be copied. Copying multiple job steps, 
whose stepnames begin with the same characters, requires 
the specification of those characters followed by **. From 
1 through 7 characters can precede the **. When the 
STEPN parameter is included, the JOBN parameter must 
also be included. 


REMOVE Parameter 


This optional parameter specifies the following: the job 
step is to be removed from the punch queue when the 
copy operation is complete (REMOVE-YES), the job step 
is to be removed from the punch queue without being 
copied (REMOVE-ONLY), or the status of the job step 

is to remain unchanged on the punch queue after being 
copied (REMOVE-NO). For job steps with multiple 
copies and REMOVE-YES specified, the number of copies 
is reduced by one after the copy is complete and the job 
step remains on the punch queue. If this parameter is not 
included, NO is assumed. 
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OUTPUT Parameter 


This optional parameter specifies that the copy output of 
the punch queue either is to contain (OUTPUT-FILE) or is 
not to contain (OUTPUT-PUNCH) the control information 
(Q- and R-bytes) used by spool to punch the records. The 
OUTPUT-ADD parameter specifies that the output opera- 
tion is to be the same as for OUTPUT-FILE except that if 
the output file ‘is a disk file, the records are added to the 
current logical end of the file. If this Parameter is not 
included, FILE is assumed. 


FILE Parameter 


This optional parameter allows you to specify the name of 
the file to which the job steps on the punch queue are 
copied. When the spool file copy program is loaded, you 
must include an OCL FILE statement that defines this file. 


If the FILE parameter is not supplied, the filename 
PUNCHO is used by the spool file copy program. If 
REMOVE-ONLY is specified, the FILE parameter is 
ignored and the file is not used. 


HEADER Parameter 


This optional parameter specifies whether or not a header 
record, which contains information about the job step is to 
be copied, is to be included immediately preceding the job 
step. If HEADER-YES is specified, the header record is in- 
cluded; if HEADER-NO is specified or assumed, the header 
record is not copied. If OUTPUT-PUNCH is specified, the 
HEADER-YES parameter does not have any effect. 


STOP Parameter 


This optional parameter specifies whether a message is to be 
issued that indicates the card type for the job step to be 
copied. The message can be issued before each step is 
copied (STOP-STEP) or before a change in card type 
(STOP-CARD). The message is not issued if STOP-NO is 
specified or assumed. In addition to the STOP-STEP or the 
STOP-CARD parameter, the message can be issued only if 
all of the following conditions exist: OUTPUT-PUNCH is 
specified, the spool file copy program is executing ina 
nonspooled partition, and the punch queue records being 
copied are for the same device as the output file (punch) 
device. 
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PARAMETER DESCRIPTIONS—COPYRDRQ 
UNIT Parameter 


This optional parameter specifies the location of the spool 
file that contains the reader queue to or from which jobs 
are to be copied. Possible codes are D1, D2, D3, D31, D32, 
D33, D34, D4, D41, D42, D43, and D44. If this parameter 
is not specified, jobs are copied to or from the reader 

queue on the active spool file. 


RECL Parameter 


When you are copying to the spool reader queue, this 
optional parameter specifies the length of records on the 
spool reader queue. This parameter is required if the copy 
is to a spool file on a system that does not have either spool 
active or spool reader support. If the spool reader records 
are to be used in conjunction with an 80-column spool 
reader device, then RECL-80 must be specified. Similarly, 
a 96-column spool reader device requires that RECL-96 be 
specified. 


This parameter is optional when copying to a spool file on a 
system with spool active and the spool reader supported. A 
default record length is assumed based on the spool reader 
device. For more information about the spool reader 
queue record length, refer to the Spoo/ File Considerations 
and Restrictions (COPY RDRQ). 


If this parameter is specified, the OUTPUT, JOBN, 
PARTITION, and REMOVE parameters cannot be specified. 


INPUT Parameter 


This optional parameter identifies the source of the records 
copied to the reader queue. {f INPUT-FILE is specified, 
the records contained in the READERO file or the file 
specified by the FILE parameter are copied to the spool 
reader queue. If INPUT-READER is specified, records read 
from the system input device are copied to the spool 

reader queue. (The spool file copy program must be exe- 
cuting under control of SCP when INPUT-READER is 
specified.) If INPUT-TERMINAL is specified, records sent 
from the terminal that made the program request are copied 
to the spool reader queue. (The spool file copy program 
must be executing under control of CCP when INPUT- 
TERMINAL is specified.) If this parameter is not included, 
FILE is assumed. If this parameter is specified, the 
OUTPUT, JOBN, PARTITION, and REMOVE parameters 
cannot be specified. 


FILE Parameter 


This optional parameter specifies either the name of the 

file from which jobs are copied to the spool reader queue or 
the name of the file to which jobs are copied from the 
spool reader queue. A FILE statement that defines this 

file must be included in the OCL when the spool file copy 
program is loaded. 


If this parameter is not included, the spool file copy pro- 
gram uses the default name READERO. 


lf INPUT-READER, INPUT-TERMINAL, or REMOVE- 
ONLY with the OUTPUT parameter is specified, the 
FILE parameter is ignored and the file is not used. 


KEY Parameter 


This optional parameter is only for copying to the spool 
reader queue from an indexed file. A minimum of 1 
character and a maximum of 29 characters can be included 
on this parameter. These characters are compared, 
character by character, starting with the leftmost charac- 
ter in the key. The compare operation ends when the last 
character is detected either in the key or on the parameter 
(whichever is first). The record is not copied unless an 
equal condition exists. 


If a comma, hyphen, blank, or an apostrophe (single quote) 
is included in the specified characters, the character string 
must be enclosed by apostrophes. An apostrophe can be 
included in the character string only if it is specified in two 
consecutive positions. 


If the KEY parameter is specified, the LOKEY, HIKEY, 
LOREC, HIREC, OUTPUT, JOBN, PARTITION, and 
REMOVE parameters cannot be specified. 
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LOKEY Parameter 


This optional parameter is only for copying to the spool 
reader queue from an indexed file. The characters included 
on this parameter determine the first record to be copied 
from the file. Only those records that have a key equal to 
or greater than the characters on this parameter are copied. 
A minimum of 1 character and a maximum of 29 characters 
can be included on this parameter. 


If acomma, hyphen, blank, or an apostrophe (single quote) 
is included in the specified characters, the character string 
must be enclosed by apostrophes. An apostrophe can be 
included in the character string only if it is specified in two 
consecutive positions. 


If the characters specified on this parameter are not the 
same length as the keys for the file records, the characters 
specified are truncated or padded on the right with blanks 
(hex 40) as needed to match the key length. 


If this parameter is specified, the KEY, LOREC, HIREC, 
OUTPUT, JOBN, PARTITION, and REMOVE parameters 
cannot be specified. 


If this parameter is not specified and the HIKEY parameter 
is specified, the low key default value is blanks (hex 40). 


HIKEY Parameter 


This optional parameter is only for copying to the spool 
reader queue from an indexed file. This parameter specifies 
the highest key for which a record can be copied. Only 
those records are copied with a key equal to or less than the 
character(s) on this parameter. 


If this parameter is specified, the KEY, LOREC, HIREC, 
OUTPUT, JOBN, PARTITION, and REMOVE parameters 
cannot be specified. 


If this parameter is not specified and LOKEY is specified, 
the default value for this parameter is all nines (hex F9). 


A minimum of 1 character and a maximum of 29 characters 
can be included on this parameter. 


If a comma, hyphen, blank, or an apostrophe (single quote) 
is included in the specified characters, the character string 
must be enclosed by apostrophes. An apostrophe can be 
included in the character string only if it is specified in two 
consecutive positions. 
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If the characters specified on this parameter are not the 
same length as the keys for the file records, the characters 
specified are truncated or padded on the right with nines 
(hex FQ) as needed to match the key length. 


LOREC Parameter 


When copying to the spool reader queue from a file, this 
optional parameter specifies the relative record number 
from which the copy operation is to begin. Relative record 
numbers identify a record's location with respect to other 
records in the file. The relative record number of the first 


record is 1, the number of the second record is 2, and so on. 


A positive decimal number that consists of a minimum of 1 
digit and a maximum of 15 digits can be specified. 


If this parameter is specified, the KEY, LOKEY, HIKEY, 
OUTPUT, JOBN, PARTITION, and REMOVE Parameters 
cannot be specified. 


If this parameter is not specified and the HIREC parameter 
is specified, the relative record number default is 1. 


HIREC Parameter 


When copying to the spool reader queue from a file, this 
optional parameter specifies the relative record number 
which ends the copy operation (this record is copied). 
Relative record numbers identify a record's location with 
respect to other records in the file. The relative record 
number of the first record is 1, the number of the second 
record is 2, and so on. A positive decimal number that 
Consists of a minimum of 1 digit and a maximum of 15 
digits can be specified. 


if this parameter is specified, the KEY, LOKEY, HIKEY, 
OUTPUT, JOBN, PARTITION, and REMOVE parameters 
cannot be specified. 


If this parameter is not specified and the LOREC parameter 


is specified, the relative record number default is the 
highest record number in the file. 


4-180 


OUTPUT Parameter 


This optional parameter causes jobs to be copied from the 
spool reader queue to a file (OUTPUT-FILE). If 
OUTPUT-ADD is specified and the output file is a disk file, 
the spool reader queue records are added to the current 
logical end of the file, rather than at the beginning. If the 
OUTPUT parameter is not specified, the default operation 
will copy records from a file to the spool reader queue. If 
this parameter is specified, the INPUT, RECL, KEY, 
LOKEY, HIKEY, LOREC, and HIREC parameters cannot 
be specified. 


JOBN Parameter 


When copying from the spool reader queue to a file, this 
optional parameter specifies that only those jobs whose 
jobname matches the JOBN parameter are to be copied. 
Copying multiple jobs, whose jobnames begin with the 
same characters, requires the specification of those charac- 
ters followed by **. From 1 through 7 characters can 
precede the **. If this parameter is specified, the OUTPUT 
Parameter must also be specified; the INPUT, RECL, KEY, 
LOKEY, HIKEY, LOREC, and HIREC Parameters cannot 
be specified. 


PARTITION Parameter 


When copying from the spool reader queue to a file, this 
optional parameter specifies that only those jobs which can 
be executed in the partition specified on the PARTITION 
Parameter are to be copied. If this parameter is specified, 
the OUTPUT parameter must also be specified; the INPUT, 
RECL, KEY, LOKEY, HIKEY, LOREC, and HIREC param- 
eters cannot be specified. 


REMOVE Parameter 


When copying from the spool reader queue to a file, this 
optional parameter specifies that: the job is to be removed 
from the reader queue when the copy operation is com- 
plete (REMOVE-YES), the job is to be removed from the 
reader queue without being copied (REMOVE-ON LY), or 
the status of the job is to remain unchanged on the reader 
queue after being copied (REMOVE-NO). If this Param- 
eter is not specified, REMOVE-NO is assumed. If this 
parameter is specified, the OUTPUT parameter must also be 
specified; the INPUT, RECL, KEY, LOKEY, HIKEY, 
LOREC, and HIREC parameters cannot be specified. 


PARAMETER DESCRIPTIONS—COPYCTRL 
FILE Parameter 


This optional parameter allows you to specify the name of 
the file that contains the control statements. The default 
name CONTROL is used if this parameter is not included. 


A FILE statement defining this file must be included in the 
OCL statements when CCP is started. 


PARAMETER DESCRIPTIONS—DISPLAY 
UNIT Parameter 


This optional parameter specifies the location of the spool 
file to be displayed. Possible codes are: D1, D2, D3, D31, 
D32, D33, 034, D4, D41, D42, D43, and D44. If this 
parameter is not specified, the status of the active spool 
file is displayed. 


OUTPUT Parameter 


This parameter is optional. If OUTPUT-FILE is specified, 
the copy output is directed to the file identified in the 
FILE parameter or to the file named DISPLAYQ. 


The OUTPUT-ADD parameter specifies that the output 
operation is to be the same as for OUTPUT-FILE except 
that if the output file is a disk file, the records are added to 
the current logical end of the file. 


If the spool file copy program is executing under CCP and 
OUTPUT-TERMINAL is specified, the copy output is 


directed to the CCP terminal that made the program request. 


If this parameter is not included, OUTPUT-FILE is assumed 
when the program is executing under SCP, and OUTPUT- 
TERMINAL is assumed when the program is executing 
under CCP and has a terminal. The OUTPUT-TERMINAL 
parameter is not valid when the spool file copy program is 
executing under SCP or under CCP and does not have a 
terminal. 


FILE Parameter 


This optional parameter allows you to specify the name of 
the file to which the display output is copied. If the copy 
output is to a file (OQUTPUT-FILE) and this parameter is 
not included, the filename DISPLAYQO is assumed. 


If the display output is copied to a file, a FILE statement 
defining this file must be included in the OCL statements 
when the spool file copy program is loaded. 


lf OUTPUT-TERMINAL is specified, the FILE parameter 
is ignored. 


Q Parameter 


This optional parameter specifies which queue is to be dis- 
played. If O-RQ is specified, the reader queue is displayed. 
If Q-WOQ is specified, the print queue is displayed. If Q-PQ 
is specified, the punch queue is displayed. 


If OUTPUT-FILE is specified and this parameter is not 
included, all queues are copied. The status of the reader is 
copied first, followed by the print queue, then the punch 
queue. 


If OUTPUT-TERMINAL is specified and this parameter is 
not included, the print queue is displayed. 
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PARAMETER DESCRIPTIONS—RESTORE 
FILE Parameter 


This optional parameter specifies the name of the file that 
contains the print or punch queue records to be copied. If 
this parameter is not included, RESTORE is assumed to be 
the name of the file. A FILE statement that defines this 
file as being either a disk file or a tape file must be included 
in the OCL statements when the spool file copy program is 
loaded. 


JOBN Parameter 


This optional parameter specifies that the print or punch 
Queue records are to be copied for only those job steps 
whose jobname matches the name supplied on the JOBN 
Parameter, Copying multiple jobs, whose jobnames begin 
with the same characters, requires the specification of 
those characters followed by **. From 1 through 7 char- 


acters can precede the **. When this parameter is specified, 


a job step in the file must have a header record in order to 
be copied. 


STEPN Parameter 


This optional parameter specifies that the print or punch 
Queue records are to be copied for only those job steps 
whose stepname matches the name supplied on the STEPN 
Parameter. Copying multiple job steps, whose stepnames 
begin with the same characters, requires the specification 
of those characters followed by **. From 1 through 7 
characters can precede the **. If the STEPN parameter 

is included, the JOBN parameter must also be included. 
When this parameter is specified, a job step in the file must 
have a header record in order to be copied. 


FORMSNO Parameter 
This optional parameter specifies that the print queue 
records are to be copied for only those job steps whose 


forms type matches this parameter. 


When this parameter is specified, a job step in the file must 
have a header record in order to be copied. 


The FORMSNO parameter and the CARDNO Parameter 
are mutually exclusive. 
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CARDNO Parameter 


This optional parameter specifies that the punch queue 
records are to be copied for only those job steps whose card 
type matches this parameter. 


When this parameter is specified, a job step in the file must 
have a header record in order to be copied. 


The CARDNO parameter and the FORMSNO Parameter 
are mutually exclusive. 


STOP Parameter 


This optional parameter specifies whether a message should 
be issued for the job step to be copied. The message indi- 
cates the forms type and the number of pages for the print 
records or the card type for the punch records. If STOP- 
STEP is specified, the message is issued before each step is 
copied. If STOP-FORM or STOP-CARD is specified, the 
message is issued before each step is copied in which the 
forms type or the card type is different than in the preced- 
ing step. If STOP-NO is specified or assumed, the message 
is not issued. In addition, the message can only be issued 
if the spool file copy program is executing in a nonspooled 
Partition, the job step to be copied has a header record, 
and the job step is being copied to the print or punch 
device. 


OUTPUT Parameter 


This optional parameter specifies whether the print or 
punch records copied from the file are to be placed on the 
spool print or spool punch queue (OUTPUT-SPOOL) or to 
be printed or punched on the device for which they were 
originally intercepted by spool (QUTPUT-PRINT or 
OUTPUT-PUNCH). If this parameter is not specified, 
OUTPUT-SPOOL is assumed. In order to be copied from 
the file to the spool! queue, a job step must have a header 
record, 


UNIT Parameter 


This optional parameter specifies the location of the spool 
file that contains the print or punch queue to which the 
records are to be copied from the file. Possible codes are 
D1, D2, D3, D31, D32, D33, D34, D4, D41, D42, D43, and 
D44. If this parameter is not specified, the print or punch 
queue on the active spool file is assumed. 


PARAMETER DESCRIPTIONS—COPYO 
QO Parameter 


This parameter specifies the spool queue for which job 
steps are to be copied. If Q-WQ is specified, the print queue 
job steps are copied. If Q-RQ is specified, the reader queue 
jobs are copied. If Q-PQ is specified, punch queue job steps 
are copied. 


FROM Parameter 


This parameter specifies the location of the main data area 
that contains the spool file from which the queue is to be 
copied. Either SP (FROM-SP) or one of the following 
main data area codes must be specified: D1,D2, D3, D31, 
D32, D33, D34, D4, D41, D42, D43, or D44. If SP is 
specified, the queue is copied from the active spool file. 


TO Parameter 


This parameter specifies the location of the main data area 
that is to receive the copy of the queue. If a spool file does 
not exist on this main data area, the spool file copy pro- 
gram creates one (SCP only). 


Either SP (TO-SP) or one of the following main data area 
codes must be specified: D1,D2, D3, D31, D32, D33, 
D34, D4, D41, 042, D43, or D44. If SP is specified, the 
queue is copied to the active spool file. 


JOBN Parameter 


This optional parameter specifies that only those job steps 
whose jobname matches that name supplied on the JOBN 
parameter are to be copied. Copying multiple jobs, whose 
jobnames begin with the same characters, requires the 
specification of those characters followed by ** 
through 7 characters can precede the **. 


. From 1 


STEPN Parameter 


This optional parameter specifies that only those job steps 
whose stepname matches that name supplied on the STEPN 
parameter are to be copied. Copying multiple job steps, 
whose stepnames begin with the same characters, requires 
the specification of those characters followed by **. From 
1 through 7 characters can precede the **. This parameter 
cannot be included when copying the reader queue. When 
the STEPN parameter is included, the JOBN parameter 
must also be included. 
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REMOVE Parameter 


This optional parameter specifies that either the copied job 
step be removed from the queue (REMOVE-YES) or the 
status of the job step remain unchanged on the queue 
(REMOVE-NO). For job steps with multiple copies and 
REMOVE-YES specified, the number of copies is reduced 
by one after the copy is complete; the job step remains 

on the queue. If this parameter is not included, 
REMOVE-NO is assumed. 


PARTITION Parameter 


This optiona! parameter specifies that only those jobs are to 
be copied which can be executed in the partition specified 
on the PARTITION parameter. Possible partition param- 
eters are 1, 2, and 3. 


This parameter can only be included if the copy is for the 
reader queue. 


PRIORITY Parameter 


This optional parameter specifies that only those job steps 
whose priority matches that supplied in the PRIORITY 
parameter are to be copied. Possible priority parameters 
are 1, 2, 3, 4, and 5. 


FORMSNO and CARDNO Parameter 


This optional parameter specifies that the job step(s) is to 
be copied only when the forms type and the FORMSNO 
parameter match (print) or when the card type and the 
CARDNO parameter match (punch). The FORMSNO and 
CARDNO parameters are mutually exclusive. 


If this parameter is included, the copy must not be for the 
reader queue. 


PARAMETER DESCRIPTIONS-AUTHORIZE 
LIST Parameter 


This optional parameter (LIST-YES or LIST-NO) specifies 
whether the contents of the AUTHORIZ file is to be 
printed. When LIST-YES is specified, the contents of the 
AUTHORIZ file are printed on the system printer after 
all changes to the AUTHORIZ file have been made. When 
LIST-NO is specified, the contents of the AUTHORIZ 

file are not printed. If this parameter is not specified, 
LIST-NO is assumed. 
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PARAMETER DESCRIPTIONS-CLASSIFY 


PROGRAM Parameter 


This parameter (PROG RAM-program name) specifies the 
name of the program that is to be assigned a class number. 


UNIT Parameter 


This parameter (UNIT-code) specifies the location of the 
simulation area that contains the library containing the 
program to be assigned a class number. Possible codes are 
F1,R1, F2, or R2. 


CLASS Parameter 


This parameter (CLASS-O, 1, 2, Or 3) specifies the class 
number to be assigned to the Program identified by the 
PROGRAM parameter. 


LIBRARY Parameter 


This optional parameter (LIBRARY-O or LIBRARY-R) 
specifies whether the program to be assigned a class number 
is in the O (object) library or the R (routine) library. If 
this parameter is not specified, the O library is assumed. 


PACK Parameter 


This optional parameter (PACK-packname) verifies that 
the correct library is accessed when a program is assigned 
a class number. (The PACK parameter is compared with 
the name of the simulation area identified by the UNIT 
parameter.) If the PACK parameter is not specified, 
verification is not done. 
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SPOOL FILE CONSIDERATIONS AND RESTRICTIONS 


FILE Requirements 


Only those FILE statements that are needed to execute 
the desired functions of $OCOPY need to be included in 
the OCL. 


The spool file copy program functions that require files also 
require data management subroutines to be included to 
access those files. The function requested is compared with 
the specified file to determine which data management 
subroutines are to be included. These subroutines are then 
linked together as required immediately before the function 
is executed. The required data management subroutines 
must be located in the R-library of either the system pack 
or the program pack. 


Figure 4-94 shows the files and the data management sub- 
routines required for specific functions of the spool file 
copy program. 


Partition Size Requirements 


Figure 4-94 shows the minimum partition sizes required 
to execute specific functions of SO@COPY. However, the 
performance of $QCOPY might be improved when this 
Program is executed in a partition with a size larger than 
minimum requirements (16K, for example). The larger 
Partition size allows $QCOPY to use a larger 1/O buffer 
area because the $QCOPY functions that involve copying 
to or from a spool file use the available space in the parti- 
tion for 1/O buffers, both for the spool file and for the 
data management (if disk files are used). Under CCP, 
this capability requires the specification of a larger value 
on the TASKSIZE parameter of the PROGRAM statement 
in the assignment set. 


Copy the Entire Spool File (COPYSP) 
Tape-to-tape copy is not supported. 
The FROM and TO parameters cannot be the same. 


To minimize the time required to execute the spool file 
copy program, only spool file track groups containing data 
are copied. 


The spool file, when copied to disk, can be used by spool 
after an IPL is performed. 


Any job steps that are incomplete when the copy is started 
will be incomplete on the copy of the spool file. To 
prevent copying incomplete job steps, the COPYSP func- 
tion from an active spool file should not be started until all 
spooling functions in the supervisor are complete and all 
spooled partitions are at end of job. 


If the copy from the active spool file is started before all 
spooling functions in the supervisor are complete and 
before all sbooled partitions are at end of job, then the 
spool file copy program can cause the spooling functions to 
wait for the copy to complete. 


When a spool file is copied either to or from a tape file, a 
record length of 1024 is used. A default block length of 
1024 is used unless otherwise specified on the tape OCL 

FILE statement. 


The spool file copy program supports copying an inactive 
spool file to a multivolume tape file but does not support 
copying an active spool file to a multivolume tape file. 
Therefore, when the active spool file is being copied to tape 
and the end-of-reel marker is detected, a message is issued 
and the copy function is discontinued. You can overcome 
this situation by copying the active spool file to disk first 
and then copying the new inactive spool file from disk to a 
multivolume tape file. 


The COPYSP control statement is valid only when the 
spool file copy program is executed under the system 
control program. 
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Copy Selected Job Steps from the Print Queue (COPYPRTQ) 


A job step on the print queue cannot be copied if any of 
the following conditions exist: 


@ The job step is currently executing. 


@ The job step is being printed by spool or being copied by 
the spool file copy program in another partition. 


@ A REUSE command was specified for the job step. 


@ The QCOPY-NO parameter had been specified on the 
PRINTER OCL statement for that job step. 


When COPYPRTO is specified without the FORMSNO, 
JOBN, and STEPN parameters, all available job steps on the 
print queue (including those that are currently held) are 
copied. 


When a job step is being copied from the print queue, that 
job step appears on a display of the queue with an indica- 
tion that it is being copied by $OCOPY. However, system 
commands that normally pertain to that job step do not 
affect it. 


Fixed-length records (FLR) written to the PRINTO file 
contain printer 1OB Q- and R-bytes as the first 2 bytes. 
(The Q- and R-bytes contain data that is used by spool to 
print the record.) An end-of-step record, consisting of 134 
bytes with hex FFFF in the first 2 bytes, is written at 

the end of each step for each step that is completely copied. 


Each variable-length record (VLR) written to the PRINTQ 
file contains a length byte (which defines the total length of 
the record including the length byte) followed by the 
printer 1OB Q- and R-bytes and the print record with the 
trailing blanks removed. Multiple VLR records are blocked 
into a 134-byte record and then written to the file. An 
end-of-step record consisting of hex O3FFFF is appended to 
the VLR print records in the buffer at end of step for each 
step that is completely copied. The print records for the 
next step start at the beginning of the next 134-byte 
record. 


A form length change record, consisting of hex 04E100nn 
for VLR or hex E100nn plus an additional 131 bytes for 
FLR, appears anywhere among the print records to indicate 
‘a change in the forms length. The nn indicates the new 
forms length in hex. 
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List of 
Required 
; Minimum | Data 
Default File Partition | Management 
Function File Name | File Device File Access Method | Record Length” Size (See Part 4} 
COPYSP 
FROM-TAPE $SPOOL Tape Input 1024 10K Plus a 
2 Times 
the Block 
Length! 
TO-TAPE Tape Output 1024 10K | 2 | 
COPYPRTQ 
OUTPUT-FILE PRINTQ — Unit Record Output 134 10K | 3 | 
or 
OUTPUT-ADD Simulation Area Consecutive Add or 134 10K gi 
REMOVE-YES Consecutive Output 
or Main Data Area Consecutive Addor 134 10K B 
REMOVE-NO Consecutive Output 
Tape Output 134 10K Plus Ei 
2 Times 
the Block 
Length! 
COPYPCHO 
OUTPUT-FILE | PUNCHQ Unit Record Output MFCU-98 10K | 3 | 
or MFCM-83 
OUTPUT-ADD 1442-82 
REMOVE-YES Simulation Area Consecutive Add or MFCU-98 10K g 
or Consecutive Output MFCM-83 
REMOVE-NO 1442-82 
Main Data Area Consecutive Add or MFCU-98 10K & 
Consecutive Output MFCM-83 
1442-82 
Tape Output MFCU-98 10K Plus Ej 
MFCM-83 2 Times 
1442-82 the Block 
Length! 
OUTPUT-PUNCH Unit Record Output MFCU-96 10K 
MFCM-80 
1442-80 
REMOVE-YES Simulation Area Consecutive Add or MFCU-96 10K 
or Consecutive Output MFCM-80 
REMOVE-NO 1442-80 
Main Data Area Consecutive Add or MFCU-96 10K B 
Consecutive Output MFCM-80 
1442-80 


Round the partition size up to the next 2K boundary. 
The file record length for the COPYPCHOQ function depends on which punch device was being spooled. 


Figure 4-94 (Part 1 of 4). Spool File Copy Program Files and Subroutines 
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List of 
Required 
Minimum | Data 


Default File Partition | Management 
File Name | Fite Device File Access Method | Record Length? Size (See Part 4) 











COPYPCHO Tape Output MFCU-96 10K Plus El 
(continued) MFCM-80 2 Times 
1442-80 the Block 
Length! 
COPYRDRO 
OUTPUT-FILE |= READERQ Unit Record Output 96 / 10K 3 | 
or Simulation Area Consecutive Add or 96 10K gy 
OUTPUT-ADD Consecutive Output 
REMOVE-YES Main Data Area Consecutive Add or 96 10K GB 
or Consecutive Output 
REMOVE-NO Tape Output 96 10K Plus Ei 
2 Times 
the Block 
Length! 
INPUT-FILE Unit Record input 1—128 10K Gg 
Simulation Area Consecutive Input 1-128 10K 
Main Data Area Consecutive Input 1—128 10K Ei 
Tape Input 1-128 10K Plus 6 | 
2 Times 
the Block 
Length! 
LOREC Simulation Area Direct Input 1—~128 10K 9 | 
or : 3 
Main Data Area Direct Input 1-128 10K 
HIREC ' ia 
KEY, LOKEY, Main Data Area Indexed Sequential 1~—128 12K 11) 
or HIKEY Input Within Limits 
(Indexed file, Main Data Area Indexed Sequential 1—128 12K 12) 
keys not Input 
specified) 
DISPLAY 
OUTPUT-FILE DISPLAYO Unit Record Output 40 10K | 3 | 
ue Simulation Area Consecutive Add or 40 10K gO 
OUTPUT-ADD Consecutive Output 
Main Data Area Consecutive Add or 40 10K GB 
Consecutive Output 
Tape Output 40 10K Plus | 3 | 
2 Times 
the Block 
Length? 








Round the partition size up to the next 2K boundary. 
*The file record length for the COPYPCHQ function depends on which punch device was being spooled. 


Figure 4-94 (Part 2 of 4). Spool File Copy Program Files and Subroutines 
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List of 
Required 
Minimum | Data 
Default File Partition | Management 
Function File Name _ | File Device File Access Method | Record Length” Size (See Part 4) 
RESTORE RESTORE Simulation Area Consecutive Input Records for: 12K 
1403-134 
MFCU-98 
MFCM-83 
1442-82 
Main Data Area Consecutive Input Records for: 12K Ei 
1403-134 
MFCU-98 
MFCM-83 
1442-82 
Tape Input Records for: 12K Plus Gi 
1403-134 2 Times 
MFCU-98 the Block 
MFCM-83 Length! 
1442-82 
COPYCTRL CONTROL Simulation Area Direct Input 1-128 10K N/A 
Main Data Area Direct Input 1—128 10K N/A 


| AUTHORIZE AUTHORIZ Main Data Area Direct Input 256 10K N/A 
Direct Update 





'Round the partition size up to the next 2K boundary. 
| 2 the file record fength for the COPYPCHO function depends on which punch device was being spooled. 


Figure 4-94 (Part 3 of 4). Spool File Copy Program Files and Subroutines 
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Required Data Management (R-Modules) for $QCOPY Functions Using Files 


ER sscsiT ssTsmo_ ssTsBs 
$$CSOT $$TSMO $$TSSB 
| EN SSARFF (if 1442 is used) 
$$LPRT (if 1403 is used) 
Za sscsop $ssRBR $$sRUA 
Ea = SSCFOP $=$$sFBR $$SFUA 
| KB SSARFF (if 1442 is used) 
$$ARRD (if 2501 is used) 
$$CSIP  $$SRBR $$SRUA 
EE} =SScFIP = $$SFBR 0 $$SFUA 
El SsDAID $ssRCB $$sRDA 
(i) SssDFID $ssFPD $$sFRC 
GH) SSIHiL = $$SFMO_-$$sFPD 
$$SFSI 
MJ ssiniP = $$SFMO. -$$SFPD 


S$$TSCR 
$$TSCR 


SSMFPP (if 5424 is used) 


SSLPMP (if 3284 or 3287 is used) 
S$SRDF $$SRTC $$SRDI 
$SSFDF $$SRTC $$SFPD 


$$MFRD (if 5424 is used) 
$$CPIP (if 3741 is used) 


$$SRTC $$SRMO $$SRSB 
$$SRTC $$SFMO $$SFSB 
$$SRDI $$SRRC_ $$SRRI 
S$SSFRI $$SFCB $$SFDA 
SSSFIC  $$SFRC $$SFRI 
$$SFIC $$SFRC $$SFRI 


Figure 4-94 (Part 4 of 4). Spool File Copy Program Files and Subroutines 
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$$MMPP (if 2560 is used) 
$$CPOP {if 3741 is used) 


$$SRMO $$SRSB  $$SRBP 
$$SRMO $$SFSB $$SFBP 
$$MMRD (if 2560 is used) 


$$SRDI $$SRBP 
$$SFPD $$SFBP 
$$SRTC 
$$SRTC 


S$SFLM $$SRTC $$SFBP $$SFSC 


$$SRTC  $$SFBP 
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lf HEADER-YES is specified, a 134-byte header record is 
written at the beginning of the output for each step. For 
FLR (Fixed Length Record), the first two bytes contain 
hex FFFE. For VLR (Variable Length Record), the first 
three bytes contain hex 86FFFE. The following chart gives 
the format of the header records following the initial 2- or 
3-bytes as previously indicated: 


Description 


Job name 

Step name 

Status byte 1 

X‘80’ Job step held on 
print queue 

X‘04' Forms align- 
ment required 

X'02' Halt on un- 
printable characters 

Status byte 2 

X'20' job step kept 
on print queue 

12 Priority on print 

queue (hex) 

13 Reserved 

14 Forms length (hex) 

15 Number of copies 

(hex) 

18 Forms type 

1A Number of pages 

(hex) 

82(83) | 104(105) | Reserved 
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The following chart gives the Q- and R-bytes and their 
meanings for the records written to the PRINTQ file: 


Q-Byte R-Byte Description 
1110 0000 0000 0000 0 | 
0000 0001 SPACE 1 An R-byte value of greater than 3 is not permitted and results 
0000 0010 2 \ in a space O. 
0000 0011 3 
1110 0001 0000 0000 Forms length change! 
1110 0010 0000 0000 Print followed by space 0 — 
1110 0010 0000 0001 Print followed by space 1 ! An R-byte greater than 3 is not permitted and 
1110 0010 0000 0010 Print followed by space 2 \ results in a space O. 
1110 0010 0000 0011 Print followed by space 3? 
1110 0100 0000 0001 Skip to line 1 
1110 0100 0000 0010 Skip to line 2 


1110 0100 








0110 1111 Skip to line 111 
1110 0100 0111 0000 Skip to line 112 
11100110 0000 0001 Print followed by skip to line i 
1110 0110 0000 0010 Print followed by skip to line 2 
11100110 0110 1111 Print followed by skip to line 111 
1110 0110 0111 0000 Print followed by skip to line 112 
11111111 1111 1110 Header record! 
11117111 41111111 End of step record! 


1 indicates Q- and R-bytes for records generated by spool and $QCOPY. They are not valid printer Q- and R-bytes. | 
a ee 


For more information about the Q- and R-bytes, refer to 
the /BM System/3 Models 8, 10, 12, 15 Components 
Reference Manual, GA21-9236. 


When the system is executing the spool file copy program 
in a spooled partition and OUTPUT-PRINT is specified (or 
OUTPUT-FILE with the PRINTO file as the printer), those 
job steps printed by $OCOPY are intercepted by spool and 
placed on the queue as one job step under the job and step 
name used when the spool file copy program was loaded. 


lf the JOBN, or JOBN and STEPN parameters are specified 
with the FORMSNO parameter, the job steps specified are 
copied only if their forms type matches that given in the 
FORMSNO parameter. 


If the output file is a disk file, it can be shared only after it 
1s closed. 


If the output file is a tape file, SQCOPY assumes a default 
block length of 1340 (10-records per block} unless a block 
length is specified on the PRINTQ OCL FILE statement. 
The minimum partition size when using tape is 10K bytes 
plus twice the tape block length rounded upward to the 
nearest 2K. Consider the following example: 


Tape block length inbytes . . . . 1340 
Multiply by2  . 2. 2. 2. 2. wl X2 
2680 


Add base function size (10K) +10240 
Total storage required ots . 42920 
Round upward to next 2K 14336 (14K) 





The required partition size for this example is 14K. 
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if the copy function is OUTPUT-FILE, punch checks can 
occur if the output file is a punch device, or unprintable 
characters can occur if the output file is a printer. These 
conditions can occur because the copy records contain the 
Q- and R-bytes as the first 2 characters. If the copy func- 
tion is OUTPUT-PRINT, the spool file program supports 
unprintable characters in the same manner as the spool 
print writer. The parameter OUTPUT-PRINT is invalid 
when the program is executing under CCP, 


When REMOVE-YES is specified, job steps are not removed 
from the queue until all job steps have been successfully 
copied. However, job steps are removed before the next 
control statement is read. Therefore, job steps being 
copied are not lost if the copy function does not terminate 
normally. But job steps will be lost if SQCOPY is canceled 
after the job steps have been removed. 


When REMOVE-ONLY is specified, job steps are removed 
from the queue without being copied. The PRINTO file 
is not used for this function, 


Comments are not allowed on the COPYPRTO statement 
unless at least one parameter is included. 


Note: \f a job step is to be added to a file in which the last 
job step does not have an end-of-step record (due to not 
being completely copied to the file from the spool queue), 
the job step being added must have a header record in order 
to be recognized from the preceding incomplete job step in 
the file. A job step should not be added to a file in which 
the jast job step has variable-length print records and does 
not have an end-of-step record; results will be unpredictable 
if a RESTORE function is attempted with that file. 


Copy Selected Job Steps from the Punch Queue 
(COPYPCHQ) 


A job step on the punch queue cannot be copied if any of 
the following conditions exist: 


@ The job step is currently executing, 


@ The job step is being punched by spool or being copied 
by the spool file program in another partition. 


@ A REUSE command was specified for the job step. 


@ The QCOPY-NO parameter was specified on the 
PUNCH OCL statement for that job step. 
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When COPYPCHO is specified without the CARDNO, 
JOBN, and STEPN parameters, all available job steps on the 
punch queue (including those that are currently held) are 
copied. 


When a job step is being copied from the punch queue, that 
job step appears on a display of the queue with an indica- 
tion that it is being copied by $QCOPY. However, system 
commands that normally pertain to that job step do not 
affect it. 


When you specify the OUTPUT-FILE parameter, the copy 
output contains control bytes. These control bytes, called 
punch 1OB Q., R-, and H-bytes, are used by the system to 
punch the record. They are contained in the first (leftmost) 
2 or 3 bytes of the record. For more information about the 
Q-, R-, and H-bytes, refer to the /BM System/3 Models 8, 
10, 12, and 15 Components Reference Manual, GA21-9236. 


Because the copy output can contain the control bytes, the 
record length depends on whether you specify the 
OUTPUT-FILE parameter or the OUTPUT-PUNCH 
parameter. The following chart shows the record length 

for the possible punch devices and the OUTPUT parameters. 


OUTPUT-PUNCH | OUTPUT-FILE 


5424 MFCU 96 93! 
80 83? 
80 82! 


'The first 2 bytes of the record are the punch IOB 
Q- and R-bytes. 

>The first 3 bytes of the record are the punch IOB 

Q-, R-, and H-bytes. 
















2560 MFCM 





1442 Card 
Read Punch 








If you specify the OUTPUT-FILE parameter and the copy 
output is directed to a punch device, the rightmost 2 or 3 
bytes of the record are truncated if the record length 
exceeds the device capacity. 
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If you specify the OUTPUT-FILE parameter, an end-of-step The following chart gives the Q- and R-bytes and their 
record is written at the end of each job step that is com- meanings for the records written to the PUNCHO file: 
pletely copied. The first 2 bytes of this record consist of 
hex FFFF. Additionally, if you specify HEADER-YES, a 
header record that contains information about that job step 
is written to the file at the beginning of each copied job 
step. The length of the header record is the same as the 
record length of the file. The first two bytes of the header 
record consist of hex FFFE. The following chart gives the 
format of the header record following those initial two 
bytes: 


Description 


0101 0000 Feed 

0101 0010 Punch and Feed 
xxxx x000 | Select stacker 1 
xxxx x001 | Select stacker 1 


11171 0000 Feed (primary) 
5424 1111 0010 Punch and feed 
(MFCU) (primary) 
2560 1111 1000 Feed (secondary) 
(MFCM) f 1111 1010 Punch and feed 
(secondary) 


Ending 
Offset 
(Hex) Description 


Job name 

Step name 

Status byte 1 

X'80’ Job step held on 
punch queue 

Status byte 2 

X'20' Job step kept on 
punch queue 

12 Priority on punch queue 

(hex) 

14 Reserved ; 

15 Number of copies (hex) 

18 Card type 

1A Number of cards 

(hex) 

End of Reserved 

Record 


xxxx x000 | No stacker 
selection 
5424 xxxx x100 | Select stacker 4 
(MFCU) xxxx x101 | Select stacker 1 
xxxx X110 | Select stacker 2 
xxxx X111 | Select stacker 3 


xxxx x000 | Stacker select 
default 
(1—primary, 
5--secondary) 
xxxx x001 | Select stacker 1 
xxxx x010 | Select stacker 2 
xxxx x011 | Select stacker 3 
xxxx X100 | Select stacker 4 
xxxx X101 | Select stacker 5 





2560 
(MFCM) 











1442 11111111 {11111110 | Header record’ 
5424 11111111 ]11111111 | End of step 
2560 record! 





‘indicates O- and R-bytes for records generated by 
$QCOPY and are not valid Q- and R-bytes. 





For more informatian about QO-, R-, and H-bytes, refer to 
the /BM System/3 Models 8, 10, 12, and 15 Components 
Reference Manual, GA21-9236. 
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When the system is executing the spool file copy program 
in a partition with spool active, and the PUNCHO file is 
the spoo! punch, then those job steps punched are inter- 
cepted by spaci arc placed on the punch queue 2s one job 
step under the job and step name used when the program 
was |oaded. 


If the output file is a disk file, it can be shared only after it 
is closed. 


If the output file is a tape file, SGCOPY assumes a default 
block length of ten times the record length unless a block 
length is specified on the PUNCHQ OCL FILE statement. 
The minimum partition size when using tape is 10K bytes 
plus twice the tape block length rounded upward to the 
nearest 2K. 


If the copy function is OUTPUT-FILE, punch checks can 
occur if the output file is a punch device or unprintable 
characters can occur if the output file is a print device. 
These conditions can occur because the copy records 
contain the Q- and R-bytes as the first 2 characters. Punch 
checks can also occur if OUTPUT-PUNCH is specified and 
the punch data is for a different type of punch device (for 
example, 1442 Card Read Punch spooled records copied to 
a 5424 MFCU). 


When REMOVE-YES is specified, job steps are not removed 
from the queue until all job steps have been successfully 
copied. However, job steps are removed before the next 
control statement is read. Therefore, job steps being copied 
are not lost if the copy function does not terminate norm- 
ally. But job steps wil! be lost if $OCOPY is canceled 

after the job steps have been removed, 


When REMOVE-ONLY is specified, job steps are removed 
from the queue without being copied. The PUNCHOQ file 
is not used for this function. 


Comments are not allowed on the COPYPCHO statement 
unless at least one parameter is included. 


Note: If a job step is to be added to a file in which the tast 
job step does not have an end-of-step record (due to not 
being completely copied to the file from the spool queue), 
the job step being added must have a header record in order 
to be recognized from the preceding incomplete job step in 
the file. 
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Copy Jobs to or from the Reader Queue (COPYRDRO) 


When a job is copied to the reader queue by $QCOPY 
executing under CCP, the name of the terminal from which 
SOCOPY was requested appears next to the jobname ona 
display of the reader queue. Additionally, the priority of 
jobs placed on the active spool file reader queue under 
CCP can be limited either by the HIPTY OCC (operator 
control command) or by an option of the configuration 
record program (SCNFIG). 


When a job is copied to the reader queue, the RECL 
parameter is required if spool is not active or the spool 
reader is not supported. If the RECL parameter is specified 
in other than these conditions, it will only be used if the 
spool reader for the system is the 3741 or if the copy is to 
an inactive spool file. 


If the spool reader is the 3741 and the RECL parameter is 
not specified, the input record length is the length of the 
source records as determined by the INPUT parameter: 


INPUT Parameter Input Record Length 


TERMINAL 80 










READER 





Length of system input device 
records 






Length of file records 





The following chart shows how to determine the input 
record length. For example, if the spool reader is not the 
3741 and either the copy is for the active spool file or the 
RECL parameter is not specified, then the input record 
length will be the length of the spool reader records. 


Spool reader not 3741 


RECL given RECL not given 













Spool reader 
3741 








Inactive 















Record Length Choices 


RECL given on control statement 
Length of input records | | 


Length of spool reader records 


If records are being copied from a file, the record jength of 
that file can be any value from 1 through 128. 









File Organization 
[Consecutive| Direct | Indexed 


Direct Direct Invalid 
input input 


Parameter 
Specifications 





Both the block length and the record length parameters 
must be specified on a tape OCL FILE statement if one of 
the following conditions exist: (1) the tape does not have a 
standard label, or (2) the REEL-BLP parameter is specified. 





LOREC or 
HIREC 









KEY, Invalid Invalid Indexed 





The minimum partition size when using tape is 10K bytes 












, LOKEY, or sequential 
plus twice the tape block length rounded upward to the ; : 
HIKEY input 
nearest 2K. within 


limits’ 
Disk files used to copy records to the reader queue can be 


consecutive, direct, or indexed. The following chart shows 













. aan Not LOREC, | Consecutive Consecutive Indexed 
the access methioe used based on the file organization and HIREC, ‘Apul ipl sequential 
parameter specifications. KEY, input! 

LOKEY, or 
HIKEY 


Requires a 12K partition. 


The copy function is terminated when two consecutive /. 
records are read or when end of data (EOD) is detected 
from the READERO file and the file is disk or tape. If the 
job being copied to the spool reader queue is not com- 
pletely copied when the copy reader queue function 
terminates, that job is taken off the queue. 
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When the output function of COPYRDRO is specified, the 
jobstream records are copied from the spool reader queue 
and placed in a file with a record length of 96. If the 
JOBN and PARTITION parameters are not specified, all 
available jobs on the reader queue {including those jobs 
that are currently held) are copied. 


A job cannot be copied from the reader queue if any of the 
following conditions exist: 


@ The job step is currently executing. 


@ The job step is currently being placed on the reader 
queue or is being copied by the spool file copy program 
in another partition. 


®@ The QCOPY-NO parameter was specified on the JOB 
OCL statement for that job. 


When a job is being copied from the reader queue, that job 
appears on a display of the queue with an indication that 
it is being copied by $QCOPY. However, system com- 
mands that normally pertain to that job do not affect it. 


If the output file is tape, a default block length of 960 (ten 
records per block) is assumed unless a block length for the 
file is specified on the OCL FILE statement. The minimum 
partition size when using tape is 10K bytes plus twice the 
tape block length rounded upward to the nearest 2K. 


When REMOVE-YES is specified, jobs are not removed 
from the queue until all jobs have been successfully copied. 
However, jobs are removed from the queue before the 
next control statement is read. Therefore, jobs being 
copied are not lost if the copy function does not terminate 
normally. But jobs will be lost if $OCOPY is canceled 
after the jobs have been removed. 


When REMOVE-ONLY is specified, jobs are removed from 
the queue without being copied. The READERCO file is 
not used for this function; however, the OUTPUT param- 
eter must be specified. 


Comments are not allowed on the COPYRDRO control 
statement unless at least one parameter is included. 


Note: When input to the reader queue is from the system 
input device and a cancel option is taken to an error 
message, the JOB statements and the /. records used to 
terminate the copy reader queue function also terminate the 
flush of the system input device that occurs after the cancel 
option. The LOAD, CALL, and /& statements can also 
terminate the flush if the spool file copy program is 
executed when the system is not in job mode. 
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Read Control Statements from a File (COPYCTRL) 


The COPYSP, COPYCTRL, AUTHORIZE, and CLASSIFY 
control statements cannot be specified in the CONTROL 
file. 


Comments are not allowed on the COPYCTRL contro! 
statement if there are no parameters included. 


No more than 254 control statement records are allowed in 
the CONTROL file. The CONTROL file can be any record 
length from 1 through 128. 


The COPYCTRL control statement is valid only when the 
spool file copy program is executed under the communica- 
tions control program. 


Copy a Display of the Status of the Spool Queues 
(DISPLAY) 


Comments are not allowed on the DISPLAY control state- 
ment if there are no parameters included. 


All queues (read, punch, and print) are copied if OUTPUT- 
FILE is specified and the Q-parameter is not included. The 
status of the reader queue is copied first, followed by the 
print queue, then the punch queue. Each queue is displayed 
in its entirety. The first record is the queue heading record, 
which is followed by the queue status records and an END 
OF QUEUE record. 


When the priority limit is less than 5 for jobs placed on the 
active spool file reader queue, a display of the active spool 
file reader queue contains a line at the top of the screen 
that indicates the priority limit. 


The print queue is displayed when OUTPUT-TERMINAL is 
specified and the Q-parameter is not included on the 
control statement. 


When OUTPUT-FILE is specified, the record length is 40 
bytes. If the output file is tape, a default block length of 
400 (ten records per block is assumed unless a block length 
for the file is specified on the OCL FILE statement. The 
minimum partition size when using tape is 10K bytes plus 
twice the tape block length rounded upward to the nearest 
2K. 


If the output file is disk, the file can be shared only when it 
is closed. 
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When the spool file copy program is executed under SCP, 
OUTPUT-TERMINAL is invalid and the default is OUTPUT- 


FILE. When the program is executed under CCP, OUTPUT- 
TERMINAL is the default. 


For more information about queue display, refer to the /BM 
System/3 Model 15 User’s Guide to Spooling, GC21-7632. 
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Restore Print or Punch Queue Records From a File 
(RESTORE) 


The restore function requires a minimum partition size of 
12K bytes. 


The RESTORE file must be a disk or tape file that was 
created by either the COPYPRTO or the COPYPCHOQ func- 
tion of $OCOPY with OUTPUT-FILE or OUTPUT-ADD 
specified. 


The RESTORE file record length is used to determine 
which device the records in the file are for. The following 
chart shows the valid input record lengths and the associated 





devices: 
Input Record Length 
82 
83 


98 


If the RESTORE file is a tape file and the tape does not 
contain a standard label or the REEL-BLP parameter is 
specified, then both the block length and the record length 
must be specified on the OCL FILE statement for the file. 
The minimum partition size when using tape is 12K bytes 
plus twice the tape block length rounded upward to the 
nearest 2K. 


The RESTORE file can contain job steps that have header 
records, job steps that do not have any header records, or 
both job steps that have header records and job steps that 
do not have header records. Also, print job steps can be 
VLR, FLR, or a mix of VLR and FLR steps. 


Job steps that have header records can be selectively 
restored by jobname, stepname, and forms type (print) or 
card type (punch). Additionally, a message is issued if 
STOP is requested and the records are being restored to a 
spooled device in a nonspooled partition (QUTPUT-PRINT 
or OUTPUT-PUNCH}. 


Job steps without header records cannot be restored by 
jobname, stepname, and forms type (print) or card type 
(punch) even though these parameters are specified on the 
RESTORE statement. Also, no message can be issued 
between steps, when a forms type changes, or when a card 
type changes. 
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lf the RESTORE function with OUTPUT-PRINT or 
OUTPUT-PUNCH is being executed in a partition that is 
being spooled, and the print or punch output is for the 
same print or punch device being spooled, then the records 
being printed or punched are intercepted by spool and 


* placed on the queue as one job step, under the jobname and 


stepname used when the spool file copy was loaded. 


When a job step is restored from a file to a spool! queue 
(OUTPUT-SPOOL), that job step must have a header record. 
When placed on the queue, the job step will have the same 
jobname, stepname, forms type (print) or card type 
(punch), priority, hold status, and keep status as it had 
originally. A restored job step is considered to be part of 
the same job as the preceding restored job step only if both 
job steps have the same jobname and the same priority. 
Otherwise, the job step is considered as a different job. 


Comments are not allowed on the RESTORE statement 
unless at least one parameter is included. 


Note: \f punch records are being restored from a file to the 
spool punch queue (OUTPUT-SPOOL), no check is made to 
verify that the punch records are for the same device as the 
spool punch device; unpredictable results can occur if the 
devices are not the same. 


Copy Selected Job Steps From One Spool File to Another 
(COPYQ) 


A job step on a queue cannot be copied if any of the follow- 
ing conditions exist: 


@ The job step is currently executing. 


@ The job step is being used by spool or copied by the 
spool file copy program in another partition. 


@ A REUSE command was specified for the job step. 


@ A QCOPY-NO parameter is specified on the OCL state- 
ment pertaining to the desired queue. 


All available job steps on the queue (including those that 
are currently held) are copied when COPY OQ is specified 
without any of the following parameters: JOBN, STEPN, 
FORMSNO. CARDNO, PRIORITY, PARITION. When a 
job step is being copied, that job step appears on a display 
of the queue with an indication that it is being copied by 
$QCOPY. However, system commands that normally 
pertain to that job step do not affect it. 
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When the COPYQ function is executed under control of the 
SCP (system control program), the spool file copy program 
can create a new spool file on the main data area designated 
on the TO parameter. However, the new spool file is created 
only if one does not exist prior to executing the COPYO 
function under control of the SCP. If the spool file is 
created by $OCOPY, it will be the same size and track group 
size as the file specified on the FROM parameter. 


A new spool file can be created without any jobs on the 
queues by specifying a JOBN parameter that does not exist 
on the spool file specified by the FROM parameter. 


If the COPYO function is executed under contro! of the 
communications control program (CCP), there must be a 
spool file on the main data area specified by the TO 
parameter. 


When REMOVE-YES is specified, jobs/job steps are not 
removed from the queue until all jobs/job steps have been 
successfully copied. However, jobs/job steps are removed 
from the queue before the next control statement is read. 
Therefore, jobs/job steps are not lost if the copy function 
does not terminate normally. But jobs/job steps will be 
lost if $QCOPY is canceled after the jobs/job steps have 
been removed. 


Note: When punch queue job steps are copied from one 
spool file to another, $OCOPY does not verify that the 
punch records on each spool file are for the same punch 
device; unpredictable results can occur if the devices are not 
the same. Similarly, when reader queue jobs are copied 
from one spool file to another, unpredictable results can 
occur if the spool reader record length is not the same for 
each spool file. 
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MAINTAIN THE AUTHORIZ FILE (AUTHORIZE) 


The AUTHORIZE control statement is valid only when 
the spool file copy program is executed under the system 
control program; however, it is not valid in a procedure, 


Authorization information is maintained in a main data 
area disk file. The record length of the file is 256 bytes. 
Each logical record in the file contains 16 authorization 
records, so that a 1-track file will hold 768 passwords and 
their associated authorization information. The file must 
originally be created as an empty direct file. This can be 
done with $COPY with the following OCL and control 
statements: 


// LOAD $COPY,F1 

// FILE NAME-COPYIN,UNIT-READER 

// FILE NAME-COPYO,UNIT-D1,PACK-D1D1D1, 
// TRACKS-1,LABEL-AUTHORIZ,RETAIN-P 
// RUN 

// COPYFILE OUTPUT-FILE,LENGTH-256 

// OUTDM DATAMGMT-DIRECT 

// END 

/* 


Before $CNFIG is used to require $OCOPY authorization, 
a record should be placed in the AUTHORIZ file that con- 
tains a password allowing authorization changes. For 
information concerning the creation of an authorization 
record, refer to Create Authorization Record. 


Authorization records in the file are created, updated, or 
deleted based on the authorization change records that are 
read from the system input device. These records must 
follow the AUTHORIZE control statement. (If $SOCOPY 
user authorization is required in the system when the 
AUTHORIZ file is being changed, a record with a password 
in columns 17 through 4 must precede the authorization 
change records in the system input device; the password 
must authorize changes to the AUTHORIZ file.) 


Authorization change records have the following format: 


Columns 1-4 
Columns 5-8 
Columns 9-12 
Columns 13-16 
Columns 17-24 
Columns 25-32 


Old password 

New password 

Old authroizations 
New authorizations 
Old user ID 

New user ID 


The old password is the password as it currently exists; the 
new password is what the password is to be changed to. 
Passwords must consist of four letters of the alphabet 
and/or numeric digits in any combination (but not $, #, 
@, or any special characters). 


When a listing is requested (LIST-YES), the user ID is used 
to associate a user (for example, by last name) with a pass- 
word. This association is used for informational purposes 
only and is not used by $QCOPY in determining whether 
a user is authorized for specific functions. If this associa- 
tion is not desired, the old and new user ID fields must be 
blank. 


Authorization Fields 


The authorizations field indicates which functions of 
$QCOPY are authorized by the password, Each position 
of the authorizations field has a specific meaning. Within 
each position the values 0 through 7 correspond with 
authorization for specific functions of $OCOPY. 


Position 1 


Position 1 controls the authorization for changing the 
AUTHORIZ file, the authorization for assigning class 
numbers to programs, and the authorization for the various 
classes of programs that can be executed in a batch parti- 
tion. The following chart relates these authorizations 

with the values (0-7) that can be specified in position 1. 


Values for Position 1 
Functions 01234567 
Change the AUTHORIZ file NNNNYYYY 


Assign class numbers to NNNNYYYY 
programs 

YYYYYYYY 
NYYYNYYY 
NNYYNNYY 
NNNYNNNY 









Execute batch programs 
of class 0 





Execute batch programs 
of classes 0 and 1 







Execute batch programs 
of classes 0, 1, and 2 










Execute batch programs 
of classes 0, 1, 2, and 3 
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For example, a value of 2 will allow the execution of batch 
Programs in classes 0, 1, and 2 (not 3) and will not allow 
changes to the AUTHORIZ file, nor will it allow the 
assigning of class numbers to programs. A value of 5 will 
allow the execution of batch programs in classes 0 and 1 
(not 2 or 3), and will allow changes to the AUTHORIZ 
file, and will also allow the assigning of class numbers to 
programs, Executing a batch program assumes the author- 
ization to place jobs on the reader queue (see position 2, 
values 4, 5, 6, and 7). 


Position 2 


Position 2 controls the authorization for access to the 
reader queue. Authorization may be granted for copying 
jobs from the queue, removing jobs from the queue, and/or 
copying jobs to the queue. The following chart relates 
these authorizations with the values (0-7) that can be speci- 


fied in position 2. 
Values for 
Positions 2, 3, and 4 
01234567 


NYNYNYNY 
NNYYNNYY 
NNNNYYYY 














Copy jobs from the queue 





Remove jobs from the queue 






Copy jobs to the queue 





For example, a value of O prevents any access to the reader 
queue. A value of 1 allows copying from the queue, but 
does not allow removing from the queue or copying to it. 
A value of 7 allows copying from, removing from, and 
copying to the queue. (A value of 4 or greater must be 
specified in position 2 when any value (other than O or 4) 
is specified in position 1.) 
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Program 


$QCOPY Control Statements 





Class 











Value in Authorization Field 












Position 4 
01234567 


Position 2 Position 3 
01234567/101234567 


Position 1 
01234567 








// COPYPRTQ (REMOVE-NO) 
// COPYPRTQ REMOVE-ONLY 
COPYPRTQ REMOVE-YES 















COPYPCHQ (REMOVE-NO) 
// COPYPCHQ REMOVE-ONLY 
COPYPCHQ REMOVE-YES 





// COPYRDRQ OUTPUT-FILE/ADD,(REMOVE-NO) 

// COPYRDRQ OUTPUT-FILE/ADD,REMOVE-ONLY 
// COPYRDRQ OUTPUT-FILE/ADD,REMOVE-YES 

// COPYRDRQ = (INPUT-FILE/READER/TERMINAL) 
// COPYRDRQ  (INPUT-FILE/READER/TERMINAL) 
// COPYROROQ = (INPUT-FILE/READER/TERMINAL) 
// COPYRDROQ = (INPUT-FILE/READER/TERMINAL) 














RESTORE (to print queue) 
// RESTORE (to punch queue) 





Q-WQ,(REMOVE-NO) 
// COPYQ Q-WO,REMOVE-. YES 


// COPYQ Q-PQ,(REMOVE-NO) 
// COPYQ Q-PQ,REMOVE-YES 
// COPYQ Q-RO,(REMOVE-NO) 
// COPYQ Q-RO,(REMOVE-NO) 
// COPYQ Q-RO,(REMOVE-NO) 
// COPYQ Q-RO,(REMOVE-NO) 
/1 COPYQ Q-RQ,REMOVE-YES 
// COPYQ Q-RQ,REMOVE-YES 
// COPYQ Q-RO,REMOVE-YES 
// COPYQ Q-RQ,REMOVE-YES 





Figure 4-94.1. Authorization Function Values for QCOPY Functions 


Positions 3 and 4 


Position 3 controls the authorization for access to the 


/{ COPYSP 


WN =O 


WN H-HOWNHO 


print queue, and position 4 controls the authorization for 


access to the punch queue. The authorizations granted 


by the values 0 through 7 for the print and punch queues 


are the same as for the reader queue. 


A value must be specified in each position of the authori- 
zation field. Figure 4-94.1 can be used to assist in select- 


ing the values for each position based on the functions 


you want to allow. Within each position, any of the values 
specified on the chart authorizes the corresponding control 


Statement. (Positions that do not have a value specified 


on the chart are of no consequence to the specific control 


Statement and may contain any value from O through 7.) 
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01234567 5 7 
123 567 5 7 
23 67 5 7 
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01234567 7 
123 567 7 
23 67 7 
3 7 
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For example, a value of 1, 3, 5, or 7 is required in position 
3 to authorize // COPYPRTOQ REMOVE-NO; the authori- 
zations field may be coded xx1x, xx3x, xx5x, or xx7x. 
The 1, 3, 5, and 7 values in position 3 each authorize other 
print queue functions; so the right value must be chosen, 
based on what functions are to be allowed and what other 
functions are not to be allowed. 


The // COPYSP statement requires values of 5 or 7 in 
positions 2, 3, and 4. Thus, authorization fields (for ex- 
ample, x555, x575, x777) all allow// COPYSP. (Note 
that these values also allow other functions that involve 
copying to or copying from any spool queue.) 


Create Authorization Record 


To create a new authorization record in the file, an author- 
ization change record that has blanks in the old password 
field must be read in the system input device. If the new 
password is unique, an authorization record with the new 
password, user ID, and authorizations is placed in the file. 


Change Authorization Record 


To change an authorization record in the file, an authoriza- 
tion change record must be read in the system input device 
with old password, old authorizations, and old user ID 
fields that match the record being undated in the file. The 
record is updated with the new password, new authoriza- 
tions, and new user ID. Passwords, authorizations, and/or 
user IDs in any combination can be updated in this man- 
ner, If a particular field is not to be changed, the old and 
new fields must match. 


Delete Authorization Record 


To delete an authorization record in the file, an authoriza- 
tion change record must be read in the system input 
device with old password, old authorizations, and old 
user ID fields that match the record being deleted in the 
file; the new password field must be blank. The old pass- 
word becomes invalid when the authorization record is 
deleted. 


The end of the authorization change records is indicated 
by the next $QCOPY control statement read in the system 
input device. Before this statement is processed, a listing 
of the information in the AUTHORIZ file is printed on 
the system printer if LIST-YES was specified on the 
AUTHORIZE control statement. 


When an error is detected in an authorization change record 
a message with cancel and continue options is displayed 
on the system console. 


, 


An OCL FILE statement describing the authorization file 
(NAME-AUTHORIZ) must be included in the OCL when 
the AUTHORIZE control statement is to be used. The 
file cannot be shared when referenced by this control 
statement. 
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Comments are not allowed on the AUTHORIZE control 
statement if there are no parameters included. 


\f SOCOPY (with user authorization required) is executed 
in a batch partition as a result of being put on the reader 
queue from CCP, functions that were not authorized under 
CCP are not allowed in the batch partition, 


Figure 4-94,2 shows a sample listing of the contents of the 
AUTHORIZ file. 


ASSIGN A CLASS NUMBER TO A PROGRAM 
(CLASSIFY) 


The CLASSIFY statement is valid only when the spool file 
copy program is executed in a batch partition. 


It may not be desirable for every user (with authorization 
to place jobs on the reader queue} to be able to execute 
every program in the system. Program classes can be used 
to restrict individual users of $OCOPY under CCP to only 
a subset of the programs because users can execute only 
those programs in the class(es) for which they are author- 
ized. Four program classes (0 through 3) are available. 
The higher the program class number, the higher the 
authorization required to execute the program in the batch 
partition. Program class authorization levels are also 
numbered O through 3. A user can execute a program it 
the class number of the program is less than or equal to 
the authorization level of the user. 
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Program classes are defined in whatever way best suits 

the needs of the user. Programs should be classified accord- 
ingly, and individual users should be assigned authorization 
levels that allow them to execute only the appropriate 
programs. The following considerations should be 
observed: 


@ A user with program class authorization level 3 may 
execute any program in the system. 


@ A program of class 0 may be executed by any user who 
is authorized to place jobs on the reader queue. 


© All programs supplied by IBM (each release) and all 
previously unclassified programs default to class 0. 


A class number assigned to an R-module has no meaning 
with respect to that R-module except that the class number 
is transferred to every program (O-module) compiled using 
that R-module. When a program is compiled, it is assigned 
a class number equal to the highest class number of all the 
R-modules included during link-editing. Thus, a program 
can be assigned a class number that will be preserved 
through recompilation if that class number is assigned to 
one of the R-modules to be included. 


Program class numbers are kept in the module attributes 
in the library directory and are shown in a $MAINT listing 
of the O-library directory. (See $MAI/NT in Part 4 of this 
manual.) 
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Figure 4-94.2. Sample Listing of the AUTHORIZ File 
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OCL CONSIDERATIONS 


The following OCL statements are required to load the 
$QCOPY system service program: 


// LOAD $QCOPY ,code 
// RUN 


The code you supply depends on the location of the simu- 
lation area containing the spool file copy program. Possible 
codes are F1, R1, F2, R2. 


EXAMPLES 


Figure 4-95 through 102.2 are examples of the OCL state- 
ments and control statements needed to: 


®@ Copy an entire spool file from disk to magnetic tape 
@ Print selected job steps from the print queue 

@ Punch selected job steps from the punch queue 

® Copy a file to the reader queue 

@ Copy selected jobs from the reader queue 

@ Copy a display of the reader queue to a file 


@ Restore a print or punch queue file to the spool print or 
punch queue 


®@ Copy a job step from one spool file to another spool file 


@ Change the AUTHORIZ file 


@ Assign aclass number to a program 
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Explanation: 
@ The spool file copy program is loaded from F1. 


® Output file (OCL sequence): 
— The name of the output file is $SPOOL 
(NAME-$SPOOL). 
— The output file is copied to tape drive 1 (UNIT-T1). 
— The output file is copied to an unlabeled tape 
(REEL-NL). 
— The tape is rewound at EOJ (END-REWIND). 


@ Control statement: 
— The entire spool file is copied (COPYSP). 
— The area containing the spool file is D4 (FROM-D4). 
— The spool file is copied to magnetic tape (TO-TAPE). 


Figure 4-95. OCL and Control Statements to Copy an Entire Spool 
File from Disk to Magnetic Tape 











Explanation: 


@ The spool file copy program is loaded from F1. 


® Control statement: 

~ Job steps are copied from the print queue of the spool 
file (COPYPRTQ). 

— The area containing the spool file is D3 (UNIT-D3). 

— Only those job steps on the print queue with the 
jobname BILLINGS (JOBN-BILLINGS), stepname 
LISTING (STEPN-LISTING), and forms type ABC 
(FORMSNO-ABC) are copied. 

— The output is printed (OUTPUT-PRINT). 


Figure 4-96. OCL and Control Statements to Print Selected Job 
Steps from the Print Queue 
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Explanation: 


@ The spool file copy program is loaded from F1. 


@ Output file (OCL sequence): 


The name that identifies the file is PUNCHO 
(NAME-PUNCHQ). 
The output file is contained in the 1442 (UNIT-1442). 


® Control statement: 


Job steps are copied from the punch queue of the 

spool file (COPYPCHQ). 

The area containing the spool file is D3 (UNIT-D3). 
Only those job steps with card type XYZ are punched 
(CARDNO-XYZ). 

The output is punched in the same format as that 
punched by the spool punch writer (OUTPUT-PUNCH). 
If multiple copies are specified, the number is reduced 
by 1. Otherwise, the job step is removed from the 
punch queue after it is copied (REMOVE-YES). 


Figure 4-97. OCL and Control Statements to Punch Selected Job 
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Steps from the Punch Queue 














Explanation: 


The spool file copy program is loaded from F1. 


Input file (OCL sequence): 

— The name that identifies the input file is INPUT 1 
(NAME-INPUT1). 

— The area that contains the file is D1 (UNIT-D1). Its 
name is D1D1D1 (PACK-D1D1D1). 


Control statement: 

— Jobs are placed on the spoo! file reader queue 
(COPY RDRQ). 

— The area that contains the spool file is D2 (UNIT-D2), 

— The file named INPUT1 (FILE-INPUT1) contains the 
jobs that are placed on the reader queue. 

— The length of the records on the spool reader queue 
is 96 bytes (RECL-96). 

— The source of the records is identified as a file 
(INPUT-FILE). 


Figure 4-98. OCL and Control Statements to Copy a File to the 


Reader Queue 
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Explanation: 
@ The spool file copy program is loaded from F1. 


® Output file (OCL sequence): 
— The name that identifies the file is READERO 
(NAME-READERQ). 
— The area that contains the file is D1 (UNIT-D1). The 
name of the area is D1D1D1 (PACK-D1D1D1). 


® Control statement: 
— Jobs are copied from the spool file reader queue 
(OUTPUT-FILE}). 
— The area that contains the spool file is D2 (UNIT-D2). 


Figure 4-99. OCL and Control Statements to Copy a File from the 
Reader Queue 
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Explanation: 
® The spool file copy program is loaded from F 1. 


® Output file (OCL sequence): 
— The name that identifies the file is DISPLAYOQ 
(NAME-DISPLAYQ). 
— The area that contains the file is D2 (UNIT-D2). Its 
name is D2D2D2 (PACK-D2D2D2). 
— The file occupies 1 track (TRACKS-1). 


® Control statement: 
— Adisplay of the reader queue is copied to the output 
file (Q-RQ). 


Figure 4-100. OCL and Control Statements to Copy a Display of 
the Reader Queue to a File 
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Explanation: 


@ The spool file copy program is loaded from F1. 


@ Input file (OCL sequence): 
~— The name that identifies the file is RESTORE 
(NAME-RESTORE). 
— The area that contains the file is D1 (UNIT-D1). The 
name of the area is D1D1D1 (PACK-D1D1D1). 


®@ Control! statement: 

— The print or punch queue records contained in the 
file are restored to the respective spool print or punch 
queue (RESTORE). 

— The spool file that contains the queue to which the 
records are to be restored is located on main data area 
D2 (UNIT-D2). 


Figure 4-101. Restore Print or Punch Queue Records 

















Explanation: 


@ The spool file copy program is loaded from F1. 


@ Control statement: 
— The job steps on the print queue (Q-WQ) are copied 
from the spool file on 01 (FROM-D1) to the print 
queue of the spool file on D2 (TO-D2). 


Figure 4-102. Copy the Print Queue from One Spool File to 
Another 


Hit 
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Explanation: 


The spool! file copy program is loaded from F1. 


Input and update file (OCL sequence): 


The name that identifies the file is AUTHORIZ 
(NAME-AUTHORIZ). 

The area that contains the file is D2 (UNIT-D2). 
The name of the area is D2D2D2 (PACK-D2D2D2). 


Control statement: 


The authorization change records follow the control 
statement (AUTHORIZE) in the system input device 
and are used to change the AUTHORI!Z file. 

A listing of the contents of the AUTHORIZ file is 
printed on the system print device when the changes 
to the file are complete (LIST-YES). 


Authorization change records: 


The first record (NP37) is a password that allows 
changes to be made to the AUTHORIZ file. 

The second record contains a blank in each of the 
four leftmost columns to indicate that CSFM is to be 
a new password in the file. The authorization code 
associated with the password is 1700 and the user 

ID is JONES. 

The third record indicates that the password (56MW) 
in the file is to be changed to LCK7. The authoriza- 
tion code (2777) and the user ID (SMITH) stay the 
same, 

The fourth record contains a blank in each of the 

5, 6, 7, and 8 positions to indicate that the password 
(QPHO) is to be deleted from the file. 


Figure 4-102.1. Change the AUTHORIZ File 
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Explanation: 


®@ The spool file copy program is toaded from F 1. 


® Control statement: 

— The program PAYROL (PROGRAM-PAYROL) is to 
be assigned a class number. 

— The PAYROL program is in the O library (SQCOPY 
assumes the LIBRARY-O default). The O library 
is in simulation area R2 (UNIT-R2). 

— The PAYROL program is to be assigned class number 
3 (CLASS-3). 

— The name of the simulation area on R2 is R2AR2R2 
(PACK-R2R2R2), 


Figure 4-102.2. Assign a Class Number to a Program 


USING THE SPOOL FILE COPY PROGRAM UNDER CCP 


The system cannot execute the spool file copy program 
under CCP with the name $QCOPY. Use the library 
maintenance program ($MAINT) or the rename $OCOPY 
prompt during system generation to change the program 
name so that the first character is not a dollar sign ($). 

If S$QCOPY is to be executed under CCP, the renamed 
modules must reside on the CCP program pack. 


When the spool file copy program is executed as a CCP 
task, the files accessed for the various functions (for 
example, the control file, display queue file, print queue 
file, reader queue file, restore file, and the punch queue file) 
must be disk files 
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Output files (DISPLAYO, PRINTO, PUNCHGQ, and 
READERQ) can be accessed either as consecutive output or 
as consecutive add. If accessed as consecutive add, the 

files can be shared between batch and CCP Partitions when 
the files are closed instead of having to wait until CCP is 
shut down. The consecutive add access appears to be 
consecutive output because the records are added from the 
beginning of the file. If it is desirable to add records from 
the logical end of the file, rather than from the beginning of 
the file, OUTPUT-ADD can be specified on the appropriate 
control statement. The add access from the beginning of 
the file will not cause any messages to be issued that warn 


of overlaying existing records in the file during CCP start-up. 


Certain functions of the spool file copy Program require 
more than 10K bytes of main storage. (See Figure 4-94 for 
the storage requirements of the various functions.) The 
TASKSIZE parameter of the PROGRAM statement in the 
CCP assignment set must be used to specify the required 
storage size when it exceeds 10K. For a description of the 
TASKSIZE parameter, refer to the /BM System/3 Model 15 
Communications Control Program System Reference 
Manual, GC21-7620. 


Program Request 


When the spool file copy program is requested under CCP, 
data may be supplied with the program request. A maxi- 
mum of two fields, separated by a comma, can be entered. 
The first field of data is the name of a file from which the 
control statements for the spool file copy program will be 
read. If this field is entered, the length of the file name 
can be from 1 through 8 characters. A FILE statement 
with that name must be included in the CCP startup OCL. 


The second field of data is a 4-character password that 
grants the user authorization for various functions of the 
spool file copy program. The password is required if the 
configuration record program option is in effect requiring 
SOQCOPY user authorization. (See $CNFIG in Part 4 of 
this manual.) The following examples of program request 
show how the fields of program data must be entered: 

OQCOPY No password and no 
CONTROL file name given. 
CONTROL file name given 
with no password. 
Password given with no 
CONTROL file name. 
CONTROL file name given 
with password. 


QCOPY filename 
QCOPY ,pswd 


QCOPY filename,pswd 
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When requested under CCP from the system console or 
from a terminal that is neither a 3275 Model 1 or 2, nora 
3277 Model 1 or 2, the spool copy program reads control 
Statements only from a file. The name of that file may be 
given as the first field of data with the program request. 

If a file name is not supplied, a default name of CONTROL 
is assumed. 


The following functions of the spool file copy program are 
not supported when requested under CCP from the system 
console or from a terminal that is not a 3275 or a 3277: 


®@ Displaying the spool queues to the requesting terminal. 


@ Entering jobs onto the reader queue from the requesting 
terminal. 


@ Issuing messages to the requesting terminal. These 
messages will go instead to the system console. 


For a complete list of terminals supported by CCP, refer to 


the /BM System/3 Model 15 Communications Control 
Program System Reference Manual, GC21-7620. 


User Authorization 

If the $OCOPY user authorization option of $CNFIG is 

in effect, authorization is required for the use of the spool 
file copy program under CCP. The functions that $QCOPY 
can perform are associated with the password entered 

with the program request. Authorization can be granted 
for the following functions: 

© Request the spooi file copy program under CCP. 

@ Access the reader queue under CCP. 

®@ Access the print queue under CCP. 


®@ Access the punch queue under CCP. 


@ Change the $QCOPY authorizations and assign class 
numbers to programs. 


Authorization for access to each queue is further granted 
for the following functions: 


® Copy jobs and/or job steps to the queue. 
®@ Copy jobs and/or job steps from the queue. 
@ Remove jobs and/or job steps from the queue. 


Authorization for copying jobs onto the reader queue is 
further granted for the purpose of executing different 
classes of programs in the batch partition. A program can- 
not be executed if it is classified higher than the program 
class authorization level associated with the password 

that was given with the program request. 


Passwords are maintained in the AUTHORIZ file. When 
the spool file copy program is first loaded under CCP, 
this file is opened with a direct get (DG) access and is 
searched for the password given in the program request 
data. If the password is not found in the file, the user is 
not authorized to request the spool file copy program. If 
the password is found, the authorization information 
associated with it is used to verify that the user is author- 
ized for the requested functions. Any time the user at- 
tempts to execute an unauthorized function, the spool 
file copy program terminates with a code 41. An OCL 
FILE statement with NAME-AUTHORIZ must be specified 
in the startup OCL for CCP if $OCOPY user authorization 
is required. 


Using the Spool File Copy Program from a Terminal 

When requested from a 3275 or 3277 terminal, the spool 
file copy program erases the screen for each message. An 
option of the configuration record program (see $CNFIG 
in Part 4 of this manual) causes the screen to not be erased 
for the following functions: 

@ Prompting for control statements 


@ Diagnosing errors 


@ Prompting for data to be entered on the reader queue 
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The screen is always erased for the following conditions: 


©@ The first write to the screen after the spool file copy 
program is loaded 


® Going to and from ENTER RDROQ DATA mode 
(// COPYRDRO INPUT-TERMINAL) 


@ During DISPLAY mode (// DISPLAY) 


When the spool file copy program is requested under CCP 
from a 3275 or a 3277 terminal and a file name is supplied 
in the first field of program data, control statements are 
read from that file. The requesting terminal can be used 
for displaying the queues, entering jobs on the reader queue, 
or issuing messages. Control statements will not be read 
from the terminal unless the reading of the CONTROL 
file is terminated by a control statement error. Otherwise, 
when an END statement is read from the file or when end 
of file is detected, the spool file copy program goes to 

end of job. 


When the spool file copy program is requested from a 3275 
or a 3277 terminal and no control file name is specified in 
the first field of program data, the VQ SP CS ENTER 
CONTROL STATEMENT message is sent to the terminal 
and the cursor is set to position 1 of line 1. The terminal 
operator then keys the program control statement into 
the first 80 positions. The format of the control state- 
ments and the rules of continuation are the same as pre- 
viously described in this manual. The ENTER key on the 
terminal is pressed to complete the entry of the program 
control statement. The control statement is then logged 
in the system history area. 
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Responding to Error Messages 


The spool file copy program diagnoses errors in control 
statements as well as error conditions which may occur 
during the execution of the program. 


If an error is found in a control statement, the 

UQ SP XX CONTROL STATEMENT ERROR message is 
issued to the terminal. The response to this message is to 
correct and reenter the control statement. No option is 
required. 


If an error occurs during execution of the program, the 
UQ SP XX ENTER RECOVERY OPTION YYYY message 
is issued to the terminal for which the spool file copy 
program is executing. The XX indicates the kind of error. 
The YYYY indicates the allowable options to the message. 
The following are the allowable options to messages and 
their meaning: 


Option Meaning 

0 Close the function (and the associated 
files) and process the next control 
statement 

1 Retry the function 

2 Close the function (and the associated 
files) and exit to end-of-job 

3 Immediate exit to end-of-job (close the 


associated files) 


The error messages are displayed on the screen. When a 
message requires a decision or action, you respond via the 
keyboard by entering the option desired and then pressing 
the ENTER key. 


The message ID (UQ SP XX) which identifies the error that 
occurred, is described in the /BM System/3 Model 15 System 
Messages, GC21-5076 and the /BM System/3 Communica- 
tions Control Program Messages Manual, GC21-5170. 
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Placing Jobs on the Reader Queue from a Terminal 


The spool file copy program allows the termina! operator to 
key OCL or data onto the spool reader queue. When 
INPUT-TERMINAL is specified on the COPY RDRO 
control statement, the program sends the UO SP RQ 
ENTER RDRO DATA message to the terminal and posi- 
tions the cursor to line 1. The terminal operator can then 
key an 80-byte OCL or data statement. The terminal 
operator then presses the ENTER key to enter the state- 
ment into the system. Jobs are placed on the reader queue 
in a manner similar to that of the spoo! reader. 


To terminate the copy-to-reader-queue function, two 
consecutive /. statements are required. 


Displaying the Spoo! Queues 


When the spool file copy program is performing the display 
function, the display can be directed to the terminal 
(OUTPUT-TERMINAL) that made the program request. 
The display begins on line 3 of a Model 1 terminal and on 
line 2 of a Model 2 terminal. Ten lines are displayed includ- 
ing the heading line. The format of this display is the same 
as that available to the system operator when the DISPLAY 
spool queue command is entered. This display shows the 
status of the spool queues, not the data on the spool queues. 
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The user can enter the following characters starting in line 1 
position 1 to alter the display: 


Terminal 
Operator 
Keys Resulting Display 


Fort Pressing the F character key and the ENTER 
key, or the ENTER key alone causes the display 
to page forward if there are additional steps on 
the queue. Ten new lines are displayed includ- 
ing the heading. The display can be paged 
forward until the end of the queue is reached. 
A response at this time restarts the display at 
the beginning of the queue. If the job step 
displayed on the last tine of the current display 
is altered through a CHANGE command or its 
position on the queue is changed while it is 
being displayed, then the display is restarted at 
the beginning of the queue even though a for- 
ward response was keyed. This is done so that 
the queue pointers can be reestablished by the 
spool file copy program. 


Fnn The F character along with a decimal number 
causes the display of the queue to be paged 
forward the number of positions indicated by 
nn. The decimal number can be a value of 1 
through 99. If paging forward exceeds the end 
of the queue, the END OF QUEUE message is 
displayed and a forward response at this time 
restarts the display from the beginning of the 
queue. The queue display can also be restarted 
from the beginning as previously described 
(under F or 6) if the job step on the Jast line of 
the display is altered during the display. 


Cc This character causes the display function to be 
terminated. 


wo These two characters cause the reader queue 


Status to be displayed. 


RQ These two characters cause the reader queue 
status to be displayed. 


PO These two characters cause the punch queue 
status to be displayed. 


END These three characters cause the spool file 
copy program to terminate. 
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CCP Assignment Set 


The following statements could be provided in the CCP 
assignment set. The exact statements that you use depends 
on how you implement the spool file copy program under 
CCP. 


// TERMATTR? ATTRID-04,BLKL-nnn, 
DATAFORM-MESSAGE 


// SYMFILE? NAME-CONTROL,DISKFILE-’names 
of files to be used for CONTROL file; 
they must be defined in FILE state- 
ments during CCP STARTUP’ 


// SYMFILE? NAME-READERO,DISKFILE-‘names 
of files to be used for READERO file; 
they must be defined in FILE state- 
ments during CCP STARTUP’ 


// SYMFILE? NAME-PRINTO,DISKFILE-‘names of 
files to be used for PRINTQ file; they 
must be defined in FILE statements 
during CCP STARTUP’ 


// SYMFILE? NAME-PUNCHQ,DISKFILE-‘names of 
files to be used for PUNCHO file; they 
must be defined in FILE statements 
during CCP STARTUP’ 


// SYMFILE? NAME-DISPLAYQ,DISKFILE-’names 
of files to be used for DISPLAYQ file; 
they must be defined in FILE state- 
ments during CCP STARTUP’ 


The TERMATTR BLKL parameter must be a minimum of 817. 
The TERMATTR ATTRID parameter must be 04 (ATTRID-04) 
and be non-DFF. The TERMATTR DATAFORM parameter must 
be MESSAGE (DATAFORM-MESSAGE). 

2 The SYMFILE statements are not required if the PROGRAM state- 
ment lists all file names that will be referenced by the spool file 
copy program. The specific file to be used can then be specified on 
the FILE parameter of the spool file copy program control state- 
ment. 1f SYMFILE statements are not used and consecutive output 
files are listed in the PROGRAM statement, then only one copy of 
the spool file copy program can be loaded under CCP at atime. A 
FILE TEMPORARILY UNAVAILABLE message is issued if 
additional program requests for QCOPY are encountered while 
QCOPY is executing under CCP. 


Note: \f the spool file copy program is to be loaded from a pack 
other than the system pack, you must first use the copy function of 
the library maintenance program ($MAINT) to copy all modules 
starting with $QC (NAME-$OC.ALL) to the object library of that 
pack. The data management modules included by the spool file 
copy program must be located on either the program pack or the 
system pack. 


// SYMFILE! NAME-RESTORE,DISKFILE-‘names 


of files to be used for RESTORE file; 
they must be defined in FILE state- 
ments during CCP STARTUP’ 


// PROGRAM? ~— NAME-OCOPY,PGMDATA-YES, 


FILES-’CONTROL/CG? 
READERQ/CG> PRINTQ/CO? 
PUNCHQ/CO? DISPLAY Q/CO? 
RESTORE/CG,AUTHORIZ/DG! 
PACK-SYSTEM, TASKSIZE-12° 


1 the SYMFILE statements are not required if the PROGRAM state- 
ment lists all fite names that will be referenced by the spool file 
copy program. The specific file to be used can then be specified on 
the FILE parameter of the spool file copy program control state- 
ment. If SYMFILE statements are not used and consecutive output 
files are listed in the PROGRAM statement, then only one copy of 
the spool file copy program can be loaded under CCP atatime. A 
FILE TEMPORARILY UNAVAILABLE message is issued if 
additional program requests for QCOPY are encountered while 
QCOPY is executing under CCP. 

2ccP does not allow a program request of a $xxxxx program from a 
terminal. To execute under CCP, the spool file copy program must 
be renamed to a name (QCOPY for example) that does not begin 
with a dollar sign ($). 

The files accessed as CO (consecutive output) can also be accessed 
as CA (consecutive add). This allows the adding of records to the 
logical end of the file as well as sharing of the file after it is closed. 

4 CONTROL/CG can also be CONTROL/DG. 

5 READERQICG can also be READERQ/CO, READERQ/DG, 
READERQ/IS, or READERQ/ISL. 

®The TASKSIZE parameter must be specified when the function 
requires more than 10K bytes. 


Note: \|f the spool file copy program is to be loaded from a pack 
other than the system pack, you must first use the copy function of 
the tibrary maintenance program ($MAINT) to copy all modules 
starting with $OC (NAME-$OC.ALL) to the object library of that 
pack. The data management modules included by the spool file 
copy program must be located on either the program pack or the 
system pack. 
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How to Request $OCOPY From a Terminal 


To execute the spool file copy program under CCP for the 
preceding assignment set statements (if symbolic files are 
used), the terminal operator must enter the following 
statements: 


/FILE CONTROL,name of the file given in the 
CONTROL SYMFILE statement 

/FILE READERO,name of the file given in the 
READERQO SYMFILE statement 

/FILE PRINTQ,name of the file given in the 
PRINTQ SYMFILE statement 

/FILE PUNCHO,name of the file given in the 
PUNCHOQO SYMFILE statement 

/FILE DISPLAYOQ,name of the file given in the 
DISPLAYQ SYMFILE statement 

/FILE RESTORE,name of the file given in the 
RESTORE SYMFILE statement 

QCOPY 
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Examples 


The following example shows the statements that the 
terminal operator keys to place the job named FIRST on 
the spool reader queue (the symbolic files were previously 
given in the assignment set). 


Terminal Operator Keys Message Returned 


/FILE CONTROL,CONTROL1 ACCEPTED PROCEED 


/FILE READERO,RDRFL1 ACCEPTED PROCEED 
/FILE PRINTQ,PRTFL1 ACCEPTED PROCEED 
/FILE PUNCHO,PCHFL1 ACCEPTED PROCEED 
/FILE DISPLAYQ,DSYFL1 ACCEPTED PROCEED 
/FILE RESTORE,REST1 ACCEPTED PROCEED 


QCOPY ,pswd UQ SP CS ENTER 


CONTROL STATEMENT 


// COPYRDRO UNIT-D2, 
RECL-96, INPUT-TERMINAL UQSP RO ENTER 
RDRO DATA 


//FIRST JOB PARTITION-D, 
CORE-12 UQ SP RO ENTER 

RDRQ DATA 

// LOAD $MAINT,F1 UQ SP RO ENTER 

RDRQ DATA 

// RUN UQ SP RO ENTER 


RDRO DATA 
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Terminal Operator Keys Message Returned 


// COPY FROM-F1,TO-PRINT, 
LIBRARY-ALL,NAME-DIR 


UQ SP RO ENTER 
RDRO DATA 
// END UQ SP RO ENTER 
RDRO DATA 


/. UQ SP RO ENTER 
RDRO DATA 


/, UQ SP CS ENTER 
CONTROL 
STATEMENT 


// END if additional $OCOPY functions are required, 
they can be given here before you specify END. 


Multiple copies of the spool file copy program can execute 
concurrently under CCP and/or in batch partitions. 


Considerations for Terminating the Spool File Copy 
Program under CCP 


The various combinations of control statement conditions 
and the operating mode determine whether the spool file 
copy program will terminate when its functions are complete 
or will read additional control statements from the request- 
ing terminal. The following rules apply to these conditions 
and operating modes: 


@ The spool file copy program terminates whenever an END 
statement is read. 


@ If end of file is received when the spool file copy program 
is reading from a CONTROL file, the program terminates 
unless the reading of the file was initiated by a 
COPYCTRL statement read from the terminal. 


@ When a control statement error is detected, the next 
contro} statement is read from the requesting terminal; 
the spool file copy program terminates if the control 
statement was not requested from a 3275 or a 3277 
terminal. 


The following table provides a summary: 


Control statement 
conditions 


END statement 


EOF received while 
reading control file 


Control statement error 


Legend: 
A-—Go to EJ 





Operating mode 





Reading control 
statements from the 
requesting terminal 


Reading control statements from a file 


$OCOPY does not 
have a 3275 ora 
3277 terminal 


B—Read next control statement from the requesting terminal 


X—Invalid condition 








$QCOPY has a 3275 or a 3277 terminal 


Reading CONTROL 
file via program Reading CONTROL 
request file via COPYCTRL 
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Recover Index Program—$RINDX 
PROGRAM DESCRIPTION 


The recover index program recovers added records to an 
indexed file. 


The recover index program is used to recover the records 
added to an indexed file if, for any reason, the program 
adding the records is terminated before end of job. 


The recover index program should be executed as soon as 
possible after the abnormal termination. 


The functions of the recover index program for each file 
organization are: 


@ Indexed file 

— If added keys exist for the file when the abnormal 
termination occurs, $RINDX updates the end-of-index 
and end-of-data pointers. File information—defined 
as file label, file type, pack label, and file date—is 
printed. The last added key for this file is also 
printed. 

— If keys has not been added when the abnormal termi- 
nation occurred, only the file information is printed. 


® Consecutive file! 
— If aconsecutive file is detected, only the file infor- 
mation is printed. 


® Direct file! 
— Ifa direct file is detected, only the file information 
is printed. 


@ If the recover index program cannot find the file identi- 
fied by the OCL FILE statement, the file information 
and the FILE NOT AVAILABLE message is printed. 


IYou can use the file recovery from physical address function of the 
copy/dump program ($COPY) to recover consecutive or direct files 
if an abnormal termination occurs when the system is adding toa 
consecutive file or creating a direct file. 
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FILE IDENTIFICATION 


Each indexed file for which records are to be recovered 
must be identified by an OCL FILE statement. The only 
description that you must include is the file name, unit 
code, and pack ID. You may also include OCL FILE state- 
ments for other than indexed files; however, the recover 
index program does not attempt to recover records in other 
file organizations. The following example shows a FILE 
statement for each file to be checked for record recovery: 
































































































































7 Wea & 16 20 24 28 TT que 40 44 48 
| LOAD & 
ree seeeEeHRL HEL 
Pel Nae i Paci DID 
LIE NA HP D Pie 
Five! WARE DI Pk Ke pte [ 
OVI MAME D1 PA ; D1p0D1 ae 
V/i ILE WAN Dil, PACK-Di101 1 COT 
AVILIE| NAM D1! Paici4-Dy (D103! 
TLE! AWM D1; PA K Be Di | | 
Vy FUL a Dal, PACK Day | [ 
VFI /icle| WAM tT\-[D4 IPA Di DD, RACKS 114 
ye pn ; : th Tot 
For Act 














The $INDEX45 file (NAME-$INDEX45) and the $INDE X40 
file (NAME-$INDE X40) are work files used to decrease the 
processing time for sorting the indexes of large indexed files. 
If you do not supply a $INDEX45 or a $INDEX40 FILE 
statement, the system attempts to allocate the work space. 
For additional information regarding the $INDEX45 and 

the $INDEX40 work files, see File Facilities in Part 2. 


The following printout is a result of processing each FILE 
statement shown in the previous example: 
$RINDX - 15/D FILE RECOVERY PROGRAM 


DATE - XX/XX/XX TIME-00.00.25 


FILE FILE PACK FILE LAST ADD KEY 
LABEL TYPE LABEL DATE INCLUDED 
CONSEC C DiDLD1 021976 

DIRECT D DLD1ID1 021976 

IN4501 I Did1D1L 021976 00971 

IN4502 I DLDLDI 021976 002031 
IN4503 I DIDID1 021976 0004131 
IN4504 I D1LD1D1 021976 00005191 
IN4505 I DLDID1 021976 oO0000721L1 
IN4506 I DiDLD1 021976 o0000007211 
IN4507 DLDiD1 021676 FILE NOT AVAILABLE 


ALL FILES PROCESSED 
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The Cl UL xx message occurs when all of the following 
conditions are present: 


@ The system is processing a FILE statement. 
®@ The described file cannot be found. 


@ A TRACKS or RECORDS parameter is not included on 
the FILE statement. 


If the recover index program cannot find the file identified 
by the FILE statement, the file information and the FILE 
NOT AVAILABLE message is printed. 


After all OCL FILE statements have been processed, an 
ALL FILES PROCESSED message is printed. The index is 
then sorted and the VTOC (volume table of contents) 
updated. 


Note: After the ALL FILES PROCESSED message is 
printed, do not cancel $RINDX or start the next job prior 
to actual end of job. Processing continues with sorting the 
index and updating the VTOC. 


OCL CONSIDERATIONS 


The following OCL statements are needed to load and exe- 
cute the recover index program: 


// LOAD $RINDX,code 

// SWITCH 1xxxxxxx (this statement is optional) 
// FILE NAME-xxxxxxxx,UNIT-xx,PACK-xxxxxx 
// RUN 


The code you supply depends on the location of the simula- 


tion area containing the recover index program. Possible 
codes are R1, F1, R2, F2. 


4-210 


CONSIDERATIONS AND RESTRICTIONS 


@ If more than one file has the same name, use DATE or 
LOCATION to further identify the file you intend to 
check. 


@ \f a disk I/O error occurs during the execution of 
$RINDX, the file information and error message DISK 
1/O ERROR is printed. A system message then occurs; 
options are: 

— Continue processing with the next file 
— Cancel the job 


© If message DDMP (Keysort Duplicate Key) occurs during 
the execution of $RINDX, it may indicate that the pro- 
gram was abnormally terminated during the process of 
sorting the index. Continue processing until end of job 
for $RINDX. If the file is not known to have duplicate 
keys, use the copy/dump program ($COPY) with 
REORG-NO and an OMIT or DELETE parameter to 
rebuild the index. 


@ Recovery of the last record of a file that spans a disk 
sector beyond the sector that contains the key is option- 
al. If you choose to recover this record, you must in- 
clude a SWITCH statement in the OCL. Otherwise, the 
program shifts the last record pointers to exciude this 
key and record, thereby ensuring that only valid records 
are recovered. 


The SWITCH statement must cause external indicator 1 
to be on. External indicators 2 through 8 can be either 
on or off. For example: 


// SWITCH 1xxxxxxx 


When you include this statement and the last record 
meets the previously described conditions, the record 
may be invalid because the program cannot determine 
whether or not it is complete. 


For maximum recovery, the keys in an indexed file 
should be at the end of each record. 


@ |f an abnormal termination occurs when a key(s) was 
added to the file but not written to the disk, the end- 
of-index pointer will not include this key(s) after the 
system has executed the recovery index program. 


EXAMPLES 


In the following example, the recover index program is 
loaded from R2. The printout shows that keys were added 
to each of the files except IN4403 before the abnormal 


termination. 


// 
// 
// 
// 
// 
// 
// 
// 
// 
// 


$RINDX - 15/D FILE RECOVERY PROGRAM 


LOG PRINTER 


LOAD 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
RUN 


$RINDX,R2 

NAME-$INDEX45,UNIT—D2,y PACK-D2D2D2y TRACKS—30 
NAME-IN4501,UNIT—D1,yPACK-D1D1D4L 
NAME-IN4502,UNIT-D1,PACK-DLD1LD4L 
NAME-IN4503,UNIT—D1,PACK-DLDLD1L 
NAME-IN4401L,UNIT-D1,PACK-DLD1AD4L 
NAME-IN4402,UNIT-D1,PACK-D1LD1D4L 

NAME-1IN4403 ,UNIT-—D1,PACK-D1IDLD1L 


DATE - XX/XX/XX 


TIME-00.00.25 


FILE FILE PACK FILE LAST ADD KEY 
LABEL TYPE LABEL DATE INCLUDED 
IN4401 I DiIDLDdDIL 022676 000000000000000000000971 
IN4402 I DLDLD1 022676 0000000000000000000002031 
IN4403 I D1IDLD1 022676 
IN4501 I DLDLD1 022676 O0971 
IN4502 I DiDiD41L 022676 002031 
IN4503 I DLD1D1 022676 0004131 
ALL FILES PROCESSED 

1 DD KS I $RINDXOL 
BEGIN KEY SORT/MERGE IN4401 

1 DD KS I $RINDXOL 
BEGIN KEY SORT/MERGE IN4402 

1 DD KS I $RINDXOL 
BEGIN KEY SORT/MERGE IN4403 

1 DD KS I $RINDXOL 
BEGIN KEY SORT/MERGE IN4501 

1 DD KS I $RINDXOL 
BEGIN KEY SORT/MERGE IN4502 

1 DD KS I $RINDXOL 
BEGIN KEY SORT/MERGE IN4503 

1 CT EJ I $RINDXOL 


02/26/76 00.00.19 00.02.47 
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Reassign Alternate Track Program—$RSALT 
PROGRAM DESCRIPTION 


The reassign alternate track program has the following 
function: 


Reassign alternate tracks on a 3340 data module for use 
on System/360 or System/370. 


When it is necessary to transport a 3340 data module from 
System/3 to System/360 or System/370, you must execute 
the reassign alternate track program ($RSALT) before you 
execute the DOS/OS initialization program. 


On a 3340 data module initialized on System/3, there are 
40 alternate tracks on cylinders 167 and 168. Ona 
System/360 or System/370 3340 data module, there are 24 
alternate tracks on cylinders 208 and 209. Consequently, 
if a 3340 data module initialized on System/3 has more 
than 24 defective primary tracks, it cannot be initialized by 
System/360 or System/370. 


Note: Data interchange is not supported between the 
System/3 and the System/360 or System/370, so this pro- 
gram cannot be used for that purpose. System/3 data exist- 
ing on the data module before $RSALT is run will be lost. 


CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


Function Control Statements 


Reassign Alternate code 


name 


Tracks // ALTA UNIT-< ‘codes’ Pack-{! . 
names 


ALL ; 
// END 
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PARAMETER SUMMARY 


Parameter Description 


code 
UNIT-< ‘codes’ 
ALL 


{name | 
{ ‘names’ f 


PACK-: 


PARAMETER DESCRIPTIONS 
UNIT Parameter 


pes 
The UNIT parameter (UNIT- < ‘codes’ 

{ ALL 
tion of the 3340 data module you want to modify. $RSALT 
can modify a maximum of three 3340 data modules during 
one execution of the program. The code you supply de- 
pends on the number of data modules that you want to 
modify. For example: 


) specifies the loca- 


For one data module, specify UN! T-code 
For two data modules, specify UNIT-‘code,code’ 
For three data modules, specify UNIT-‘code,code,code’ 


If UNIT-ALL is specified, $RSALT modifies all data mod- 
ules that are online and not being used by other partitions. 


Code Meaning 

D1 Modify data module on drive 1 
D2 Modify data module on drive 2 
D3 or D31 Modify data module on drive 3 
D4 or D41 Modify data module on drive 4 
ALL Modify all available data modules 


If the PL was performed from drive 1, $RSALT will not 
accept D1 as a valid code. 


Specifies the location of the 3340 data module. Possible codes are D1, D2, 
D3 or D31, D4 or D41, and ALL. 


Specifies the name of the data module you want to modify. 





PACK Parameter 


The PACK parameter (PACK- { nao 4 ) tells the program 
names’ f 


the name of the data module to be modified. The name 
must not exceed 6 characters and can be any of the standard 
System/3 characters except apostrophes, commas, and 
leading or embedded blanks. 


When more than one data module is modified, the asso- 
ciated pack name and data module code must be in the 
same relative position within each parameter. For example, 
in the following statement the name D2D2D2 is associated 
with unit code D2. Also, the name D3D3D3 is associated 
with unit code D3: 


// ALTA UNIT-‘D2,D3',PACK-’D2D2D2,D3D3D3' 


If UNIT-ALL is specified, PACK parameter names must be 
supplied for all data modules that are to be modified. 


The reassign alternate track program compares the name in 
the PACK parameter with the name on the data module to 
ensure that they match. If not, the program halts with an 
error message. 
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Figures 4-103, 4-104, and 4-105 are examples of OCL and 
control statements required to execute the $RSALT 
program. 




















Explanation: 
@ The reassign alternate track program is loaded from F1. 


@ The data module mounted on drive 4 (UNIT-D4) is 
modified to System/360-System/370 format. 


® The name of the data module is compared with D4D4D4 
(PACK-D4D4D4). 


Figure 4-103. Modify One Data Module 
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Explanation: 
@ The reassign alternate track program is loaded from F 1. 


@ The data modules mounted on drive 3 and drive 4 
(UNIT-‘D3,D4’) are modified to System/360-System/370 
format. 


@ The name of each data module is compared with its 
associated PACK parameter name (PACK-’D3D3D3, 
D4D4D4'). 


Figure 4-104. Modify Two Data Modules 
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Explanation: 


@ The reassign alternate track Program is loaded from F 1. 


@ The data modules on drives 2, 3, and 4 (UNIT-ALL) 
are to be modified to System/360-System/370 format. 


@ The name on each data module is compared with its 
associated PACK parameter name (PACK-‘D2D2D2, 
D3D3D3,D4D4D4’), 


Figure 4-105. Modify Multiple Data Modules 
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Simulation Area Program—$SCOPY 
PROGRAM DESCRIPTION 
The simulation area program has the following functions: 


@ COPYAREA copies the entire contents of one simulation 
area to another simulation area. 


@ CLEAR clears ail the data from a simulation area and 
builds a simulated cylinder 0 (optionally provides 
volume ID and owner !D). 


@ NEWNAME changes the name (volume 1D) and/or 
owner ID of a simulation area. 


@ NAMES prints and/or displays the name (volume 1D) of 
each available simulation area and main data area. 


@ MOVE copies the entire contents of one simulation area 
to another simulation area, clears the simulation area 
from which the contents were copied, and builds a 
simulated cylinder 0 in the simulation area copied from. 


@ COPYIPL copies IPL records from one volume to 
another volume. 
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CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


Functions Control Statements 
a 







COPYAREA /1 COPYAREA FROM-code,TO-code,AREA-name [,PACK-name] {, TONAME-name] 
[systems no } | 
CLEAR // CLEAR FROM-code[{,PACK-name] [,AREA-name] [,CLRNAME-name] [,!D-name] 
[-Tree. {SHECK) 
NEWNAME // NEWNAME TO-code,AREA-name,TONAME-name[,PACK-name] [,1D-name] 











NAMES PRINT 
// NAMES | DISPLAY 
BOTH 








// MOVE FROM-code,TO-code, AREA-name [,PACK-name] [, TONAME-name] [,ID-name] 
[ system{no | L.CLRNAME-name] 






NO_ 





COPYIPL // COPYIPL FROM-code,TO-code,PACK-name 
// END 
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Figure 4-106 lists the possible codes.that can be supplied 

in each of the appropriate parameters for $SCOPY. Before 
using these codes, you should be familiar with the format 
of each volume and the assignment of the codes as described 
in Part 3 of this manual. 


Disk Drive 
Type and Main Data Simulation Area 
Designation | Area Codes | Codes! 


3340 drive 1 D1 D1A, D1B, D1C, D1D 
3340 drive 2 | D2 D2A, D2B, D2C, D2D 
3340 drive 3 | D3or D31 D3E, D3A 
3340 drive 4 | D4 or D41 D4E, D4A 


3344 drive 3 
volume 1 D3 or D31 D3E, D3A 
volume 2 D32 D3F, D3B 
volume 3 D33 D3G, D3C 
volume 4 D34 D3H, D3D 


3344 drive 4 
volume 1 D4 or D41 D4E, D4A 
volume 2 D42 D4F, D4B 
volume 3 | D43 D4G, D4c 
volume 4 D44 D4H, D4D 


Instead of a simulation area code, a 5444 unit code (F1, R1, 
F2, R2) may be used, and when used, it refers to the simula- 
tion area currently assigned to that code in the Partition in 
which $COPY is being executed. 





Figure 4-106. Main Data Area and Simulation Area Codes 
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PARAMETER SUMMARY 


Parameter Description 
ee ee 


COPYAREA 





FROM-code Identifies the simulation area being copied. See Figure 4-106 for the possible 
codes. 


TO-code Identifies the simulation area receiving the copy. See Figure 4-106 for the possible 
codes. 


PACK-name Identifies the name of the main data area associated with the simulation area 
receiving the copy. 


AREA-name Identifies the name of the simulation area being copied. 
TONAME-name Specifies a name change for the simulation area receiving the copy. 


system} a Specifies whether IPL information is to be copied. 


CLEAR 


FROM-code Identifies the simulation area being cleared. See Figure 4-106 for the possible 
codes. 


PACK-name Specifies the name of the main data area associated with the simulation area 
to be cleared. 


AREA-name Specifies the simulation area to be cleared. This parameter cannot be specified 
if the simulation area does not have an assigned name. P1DO01 must be specified 
to clear an area used for distribution of programs from the 1BM program 
library/PID. 


CLRNAME-name Specifies the name to be given to the simulation area being cleared. This param- 
eter must be specified if the simulation area does not have an assigned name. The 
name of the simulation area, if previously defined, will remain the same if this 
parameter is not specified. 


!D-name Enables you to use a 10-character name in addition to the simulation area name 
to further identify a simulation area. 


TYPE-CHECK Tells the program to check for active files or libraries and halt if any are 
found before clearning the simulation area. 


TYPE-FORCE Tells the program to clear the simulation area without checking for active files 
or libraries. 
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Parameter Description 
nn Fh 





NEWNAME 


TO-code 


PACK-name 


AREA-name 


TONAME-name 


NAMES 


PRINT 
DISPLAY 
BOTH 


MOVE 


FROM-code 


PACK-name 


AREA-name 


TONAME-name 


4-220 





Specifies the name of the simulation area being renamed. See Figure 4-106 for the 
possible codes. 


Specifies the name of the main data area associated with the simulation area being 
renamed. 


Specifies the existing name of the simulation area being renamed. 


Specifies the new name being given to the simulation area. The name may be up 
to 6 characters in length and contain any combination of standard System/3 
characters except apostrophes, embedded blanks, and embedded commas (due to 
their delimiter function). See Appendix A for a list of standard System/3 
characters. 


Enables you to assign a 10-character name in addition to the area name to 
further identify the simulation area. 


The PRINT parameter indicates that the names of all online simulation areas 

are to be printed on the device assigned as the system print device (PRINTER 
statement). The DISPLAY parameter indicates that the names of all online 
simulation areas are to be displayed on the display screen. The BOTH parameter 
indicates that the names of all online simulation areas are to be printed and dis- 
played. If no parameter is specified, the simulation area names are printed. 

If an area is unavailable, its volume ID is left blank and a message will indicate 
the reason. Using DISPLAY, an additional screen is used to display exception 
output. 


Identifies the simulation area being moved. See Figure 4-106 for the possible 
codes. 


Identifies the simulation area receiving moved information. See Figure 4-106 for 
the possible codes. 


Identifies the name of the main data area associated with the simulation area 
receiving the moved information. 


Specifies the name of the simulation area being moved. 


Specifies a name change for the simulation area receiving the moved information. 


Parameter Description 
EE ee 


ID-name Name can be a maximum of 10 characters and is used to further identify the 
simulation area being moved. 


SYSTEM. YES Specifies whether IPL information is to be copied. 
NO 
CLRNAME-name Used to assign a name to the area from which the information has been moved. 


COPYIPL 


FROM-code Identifies the main data area containing the IPL records to be copied. See Figure 
4-106 for the possible codes. 


TO-code Identifies the main data area receiving the IPL records. See Figure 4-106 for the 
possible codes. 


PACK-name Identifies the name of the main data area receiving the {PL records. 
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PARAMETER DESCRIPTIONS—COPYAREA 
FROM and TO Parameters 


The FROM parameter (FROM-code) identifies the simula- 
tion area that contains the information to be copied. The 
TO parameter (TO-code) identifies the simulation area that 
is to receive the copy. Possible codes are those for the 
simulation areas and the 5444 unit codes. See Figure 4-106 
for possible codes. 


PACK Parameter 


The PACK parameter (PACK-name) identifies the name of 
the main data area associated with the simulation area 
receiving the copy. This is the name assigned by the disk 
initialization program ($INIT). 


AREA Parameter 


The AREA parameter (AREA-name) identifies the name 
of the simulation area that is to be copied. 


Note: Using a COPYAREA or MOVE statement, the 
receiving simulation area is assigned the owner ID of the 
simulation area being copied from. 


TONAME Parameter 


The TONAME parameter (TONAME-name) is used to 
change the name of the simulation area that is to receive 
the copy. The name may contain up to 6 characters (see 
CLRNAME Parameter under CLEAR for explanation of 
valid names). If the TONAME parameter is omitted, the 
name of the simulation area that is to be copied is used. 


SYSTEM Parameter 


The SYSTEM parameter is used to copy IPL information. 
If SYSTEM-YES is specified, the IPL information from 
cylinder 0 of the volume from which an IPL was performed 
(D1, D3, or D31) is copied to cylinder 0 of the volume 
receiving the copied information. If SYSTEM-NO is 
specified, the IPL information is not copied. If this 
parameter is not specified, SYSTEM-NO is assumed. 
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PARAMETER DESCRIPTIONS—CLEAR 
FROM Parameter 


The FROM parameter (FROM-code) identifies the simula- 
tion area to be cleared. Codes that may be used are those 
for the simulation areas and the 5444 unit codes. See 
Figure 4-106 for possible codes. 


PACK Parameter 


The PACK parameter (PACK-name) specifies the name of 
the main data area associated with the simulation area that 
is to be cleared. This is the name assigned by the disk 
initialization program ($INIT). 


AREA Parameter 


The AREA parameter (AREA-name) specifies the name of 
the simulation area that is to be cleared. This parameter 
cannot be specified if the area has no assigned name. The 
AREA parameter must be specified as PID001 in order to 
clear an area used for distribution of programs from the 
{BM program library. 


CLRNAME Parameter 


The CLRNAME parameter (CLRNAME-name) specifies 
the name to be given to the simulation area that is to be 
cleared. The name may be up to 6 characters in length and 
contain any combination of standard System/3 characters 
except apostrophes, embedded blanks, and embedded 
commas (due to their delimiter function). See Appendix A 
for a list of standard System/3 characters. Some examples 
of valid area names are: 0, FOOO1, 012, A1B9, and ABC. 
If this parameter is not specified, the name of the simula- 
tion area is the name previously defined. If a name has not 
been previously defined, CLRNAME must be specified. 


1D Parameter 


The 1D parameter enables you to include a maximum of 10 
characters in addition to the area name to further identify 
avolume. The characters can be any combination of 
standard System/3 characters (see Appendix A) except 
apostrophes, blanks, and commas (due to their delimiter 
function). The information is strictly for volume identi- 
fication; it is not used by the system for checking purposes. 
If no parameter is specified, the owner |D area in the 
volume label is blank. 


TYPE Parameter 


The TYPE parameter specifies the type of clear that is to 

be done. If TYPE-CHECK is specified, a check is made for 
active files or libraries. If any are found, the system issues 

an error message. If TYPE-FORCE is specified, the area is 
cleared without a check for active files or libraries. Ali 
libraries and data files are deleted. (Default is TYPE-CHECK.) 


PARAMETER DESCRIPTIONS—NEWNAME 
TO Parameter 


The TO parameter (TO-code) identifies the simulation area 
that is to be renamed. Possible codes are those for the 
simulation areas and the 5444 unit codes. See Figure 4-106 
for the possible codes. 


PACK Parameter 


The PACK parameter (PACK-name) specifies the name of 
the main data area associated with the simulation area being 
renamed. This is the name assigned by the disk initializa- 
tion program ($INIT). 


AREA Parameter 


The AREA parameter (AREA-name) specifies the existing 
name of the simulation area that is to be renamed. 


ID Parameter 


The 1D parameter (1D-name) specifies the owner 1D that 

is to be given to the simulation area from which informa- 
tion was moved. If no parameter is specified, the owner ID 
in the volume tabel is left blank. 


Note: Using a COPYAREA or MOVE statement, the 
receiving area is assigned the owner ID of the area being 
copied from. The owner ID name may be up to 10 charac- 
ters in length. See /D Parameter under CLEAR for an 
explanation of valid names. 


SYSTEM Parameter 


The SYSTEM parameter is used to copy IPL information. 

If SYSTEM-YES is specified, the IPL information from 
cylinder 0 of the volume from which the IPL was performed 
(D1, D3 or D31) is copied to cylinder 0 of the volume 
receiving the copied information. If SYSTEM-NO is speci- 
fied, the IPL information is not copied. If this parameter 

is not specified, SYSTEM-NO is assumed. 


CLRNAME Parameter 


The CLRNAME parameter (CLRNAME-name) is used to 
assign a name to the simulation area from which the infor- 
mation has been moved. The name may be up to 6 charac- 
ters. See CLRNAME Parameter under CLEAR for an 
explanation of valid names. If no parameter is specified, 
the area is cleared and the name previously assigned is used. 


PARAMETER DESCRIPTIONS—COPYIPL 
FROM and TO Parameters 


The FROM parameter (F ROM-main data area code) identi- 
fies the volume containing the IPL records that are to be 
copied. The TO parameter (TO-main data area code} 
identifies the volume that is to receive the IPL records. 
See Figure 4-106 for the possible codes. 


Note: COPYIPL cannot be executed to the volume from 
which an IPL was performed. For example, if an [PL was 
performed from DISK 1 (F1 or R1), you cannot specify D1 
on the TO parameter. Also, if an IPL was performed from 
DISK 3 (F1 or R1), you cannot specify D3 or D31 on the 
TO parameter. 


PACK Parameter 


The PACK parameter (PACK-name) identifies the name of 
the main data area that is to receive the IPL records (the 
name was assigned by the disk initialization program 
(SINIT) ). 


TONAME Parameter 


The TONAME parameter (TONAME-name) specifies the new 
name to be given to the simulation area. The newname may 
be up to 6 characters in length. See CLRNAME Parameter 
under CLEAR for an explanation of valid names. 
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PARAMETER DESCRIPTIONS—NAMES 
PRINT Parameter 


The PRINT parameter indicates that the names of all online 
simulation areas are to be printed on the device assigned as 
the system print device (PRINTER statement). The 
DISPLAY parameter indicates that the names of all online 
simulation areas are to be displayed on the display screen. 
The BOTH parameter indicates that the names of all online 
simulation areas are to be printed and displayed. If no 
parameter is specified, the simulation area names are 
printed. if an area is unavailable, its volume ID is left 
blank and a message will indicate the reason. Using 
DISPLAY, an additional screen is used to display exception 
output. 
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PARAMETER DESCRIPTIONS—MOVE 
FROM and TO Parameters 


The FROM parameter (F ROM-code) identifies the simula- 
tion area that is to be moved. The TO parameter (TO-code) 
identifies the simulation area that is to receive the moved 
information. Possible codes are those for the simulation 
areas and the 5444 unit codes. See Figure 4-106 for the 
possible codes. 


PACK Parameter 


The PACK parameter (PACK-name) identifies the name of 
the main data area associated with the simulation area that 
is to receive the moved information. The name was assigned 
by the disk initialization program ($INIT). 


AREA Parameter 


The AREA parameter (AREA-name) specifies the name of 
the simulation area to be moved. 


TONAME Parameter 


The TONAME parameter (TONAME-name) is used to 
change the name of the simulation area that is to receive 
the information. If no parameter is specified, the name of 
the simulation area that is to be moved is used. See 
CLRNAME Parameter under CLEAR for an explanation 
of valid names. 


OCL CONSIDERATIONS 


The following OCL statements are needed to load the 
simulation area program: 


// LOAD $SCOPY,code 
// RUN 


The code you supply depends on the location of the simu- 
lation area containing the simulation area program. Possible 
codes are R1, F1, R2, and F2. 


EXAMPLES 


Figures 4-107 through 4-113 are examples of control state- 
ments used to perform specific functions of the simulation 
area program. 


Figures 4-114 through 4-117 are examples of the NAMES 
display function. 











Explanation: 


After a check for active files and libraries (default is 
TYPE-CHECK), the simulation area (D2C) is cleared. It is 
given a volume ID of D2CD2C and an owner ID of 
BACKUPF1,. This is an example of the CLEAR that is 

to be run after the entire volume has been initialized 

by SINIT, 


Figure 4-107. CLEAR Example: Clearing a Simulation Area 
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Explanation: 


After verification that the volume {D on the simulation 
area (D1C) is P!D001, the simulation area is cleared and 
given a volume ID of DiCD1C. The owner ID is all blanks 
and the check for active files and libraries is bypassed. 
This is an example of the control statement needed to 
clear a simulation area containing programs from the [BM 
program library/PID. 


Figure 4-108. CLEAR Example: Clearing an Area Containing 
1BM Programs. 











Explanation: 


After verification that the volume ID of area D1A is 
F1F1F1, the simulation area (D1A) is copied to the simula- 
tion area (D2C). The entire simulation area is copied 
including cylinder 0, the volume ID, and the owner ID if 

it was present on D1A. 


Figure 4-109. COPYAREA Example: Copy an Entire Simulation 
Area 
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Explanation: 


The entire R2 simulation area (assigned to the partition 
in which $SCOPY is running) is copied to the simulation 
area (D3H) and is given a volume ID of BKUPR2 and an 
owner ID of the R2 area if one exists. After the copy is 
complete, the R2 simulation area is cleared of all data, 
its owner ID field is blank, and it retains its volume ID 
of R2R2R2. The R2 simulation area is now ready to be 
the receiving area of a COPYAREA or another MOVE. 


Figure 4-110. MOVE Example: Copy an Entire Simulation Area 
with New Volume ID 








Explanation: 


The IPL (initial program toad) records and the 3340 micro- 
code are copied from cylinder 0 of volume 1 to cylinder 0 
of votume 33. A check is made before the copy to ensure 
that the volume ID of volume 33 is D33D33. 


Figure 4-111. COPYIPL Example: Copy Cylinder 0 from Volume 1 
to Volume 33 














Explanation: 


This control statement enables you to print on the system 
print device the volume ID of all online and available 
volumes. This control statement also provides the capability 
to print an exception line, if needed, giving the reason for 
any unavailable simulation area. 


Figure 4-112. PRINT Example: Print ID Information 
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Explanation: 


After verifying that the name (volume ID) of the simula- 
tion area (D2B) is R1R1R1, the program changes the name 


(volume ID) of the simulation area from R1R1R1 to 
BACKUP. 


Figure 4-113. NEWNAME Example: Changing Volume ID 
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C 3340 AREA NAMES 


$SCOPY 
Eammsppvsyy ERHH.MM.SS 
C3 Gepack Ga B c D 
DL DLDIDL = FIFLFL RLURIRL PIDOOL PIDOOL 
D2 D2D2D2_ F2F2F2 R2R2R2 BACKUP D2DD2p 


Item Explanation 


1 Operator response 


C — Cancel display and return to read the 
next control statement 


F — Page forward to next display 
B — Page backward to previous display 


The first display screen will have a C in this 
position if there is no subsequent display. 
It will have an F in this position to indicate 
that a subsequent display containing addi- 
tional information is available. The last 
output page with available data will have 

a C in this position. 


The system date 


The system time (if full time support) 


Main data area code 


The ID of the volume 


The volume 1D of the simulation area 





Figure 4-114. Example of Output from a NAMES Display 





Simulation Area Program—$SCOPY 4-229 


a 


El 
3344 DRIVE 3 


$SCOPY 


GRSIM AREARM SIM AREA 
D314 D3D3D3. D3A D3AD3A  OD3E 


1233 D32D32 D3B D3BD3B D3F 


D33 ©=D33D33 D3C =6D3CD3C D3G 
D34 D34D34 D3D = D3DD3D D3H 


Item Explanation 


1 | Operator response 









C — Cancel display and return to read the 
next control statement 


F — Page forward to next display 
B — Page backward to previous display 


The first display screen will have a C in this 
position if there is no subsequent display. 
It will have an F in this position to indicate 
that a subsequent display containing addi- 
tional information is available. The tast 
output page with available data will have a 
C in this position. 


















Type of disk drive 
Disk drive number 
Main data area code 
The volume ID of the main data area 
The simulation area code 
The volume {D of the simulation area 


These three lines are displayed only if drive 
3 is a 3344 






Figure 4-115. Example of Output from a NAMES Display 
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D3ZED3E 
D3FD3F 
D3GD3G 
D3HD3H 





F 3340 AREA NAMES 






MM/DD/YY HHeMM.SS 


GBeack Ba Els Zac 
DL DIDLD1L =FLFLFL BADVOL D1ICD1C 
D2 NOT ON LINEGY 


Item Explanation 


1 Drive D1 was available; therefore, the 
volume !D is displayed. 









Simulation area D1A was available; there- 
fore, its volume ID is displayed. 







Simulation area D1B had no volume ID; 
therefore, BAD VOL is displayed. 









g Simulation area D1C was available; there- 
fore, its volume ID is displayed. 








& Simulation area D1D was available; there- 
fore, its volume ID is displayed. 








6 | Volume D2 is not ready; therefore, its 
volume ID and the volume IDs of the simu- 
lation areas are not displayed. 









The F (forward code) appears indicating 
that a subsequent display containing 
additional information is available. 







Figure 4-116. Example of NAMES Display with Exception Output 


Ep 


D1LDD1AD 





$SCOPY| LINE 
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Bic 3340 EXCEPTION AREAS 
MANO VOL LABEL D1B 
EBUNAVAILABLE D2A, D2B, D2C, D2D 


Item Explanation 


1 The C (cancel code) appears indicating that 
this is the last display page. 












Simulation area D1B did not have a valid 
volume label. 





3 | The designated simulation areas were not 
available to $SCOPY. 


Figure 4-117. Example of Exception Output with NAMES Display 
Statement 
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$SCOPY 





Tape Initialization Program—$TINIT 
PROGRAM DESCRIPTION 
The tape initialization program has the following functions: 


@ Check labeled tapes for a volume label and an unexpired 
file before writing a new volume label. 


® Clear labeled or unlabeled tapes by bypassing CHECK 
and unconditionally initializing the tape. 


® Display the volume and header labels. 


The tape initialization program prepares magnetic tapes for 
use. This program writes 18M standard volume tabels on 
tape in order for tape data management to perform |BM 
standard label processing. 


All tapes must be initialized before use. Tapes that have 
been initialized need not be reinitialized unless you want to 
write a new volume label or use a tape that contains a 
permanent file for output. This program can either initialize 
(CLEAR or CHECK) or display (DISPLAY) one tape per 
unit during the same program run. 


Tape Initialization Program—$TINIT 
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CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


Functions Control Statements 
jt 


Check for an 
expired file and a 
label, then write a 
new label. 


// VOL UNIT- - | TYPE-CHECK) [ascir{ Xoo t| 
XXXX =~ = 


NO. 
@ 


/DENSITY- 5 [,1D-xx...xx] 


Write volume label T1 
without checking T2 
for old label. H NOLUNIT- T3 

T4 


© 1600 


800 
/DENSITY- 556 {,ID-xx...xx] 


200 


,REEL- Ae ,TYPE-CLEAR | ,ASCH- ¥ES 
XXXXXX NO_ 


Display volume and T1 @ 


neaget-Jabelss /] VOL UNIT-2 2 S.TYPE-DISPLAY |,DENSITY- /FILES- 


T3 
T4 


// END 


Q) If density is not specified, the default for 7-track tape units is 800 bpi; the default for 9-track tape units is 
1600 bpi. Other defaults are underlined. 


The DENSITY parameter on display volume label is valid only for 7-track tape units. 


Valid density for 7-track tape units is 200, 556, and 800 bpi. Valid density for 9-track tape units is 800 bpi 
or 1600 bpi. 
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PARAMETER SUMMARY 


Parameters Description 
i is eS] 






TYPE-CHECK Check to see if the file has expired; then write a new label. Do not use this on 
blank tapes because the program attempts to read a blank tape, causing tape 
Optional runaway. On multifile volumes, only the first file is checked. 
(select 
TYPE-CLEAR one) a) Write a new volume label without checking for an expired file. 










TYPE-DISPLAY Print the contents of the volume label and the header labels. 


UNIT-code required Specifies which tape drive contains the tape to be initialized. Possible codes are: 
T1, T2, 73, and T4. Aseparate VOL statement is needed for each tape unit that 
contains a tape to be initialized, checked, or displayed. 










REEL-NL Required for 
TYPE-CHECK 
REEL-xxxxxx) and Specifies the volume serial number that the tape initialization program writes on 


TYPE-CLEAR tape. Must be A-Z, 0-9, $, # or @. 


Specifies that an unlabeled tape is to be prepared. 













ASCII-YES The tape is written in ASCI| code. This is invalid for 7-track tape. 
optional 
ASCII-NO The tape is written in EBCDIC code. If the ASCII parameter is omitted, NO 


is assumed. 









DENSITY-200 









The tape is written at a density of 200 bpi (bits per inch). The file written on 
this tape unit must be written at this density. 







DENSITY-556 The tape is written at a density of 556 bpi (bits per inch). The file written on 






Optional ; 

(select this tape unit must be written at this density. 

one) Bore! : : ; 
DENSITY-800 The tape is written at a density of 800 bpi (bits per inch). The file written on 






this tape unit must be written at this density. 







DENSITY-1600 The tape is written at a density of 1600 bpi (bits per inch). The file written on 
this tape unit must be written at this density. 






ID-x00000%%x Optional Provides an additional identification field. This field is not processed by the 
system. A maximum of 10 characters can be used if ASCII-NO is specified. If 
ASCII-YES is specified, 14 characters can be used. 










FILES-001 | Indicates the number of files for which header labels are to be displayed. If this 
parameter is omitted, 001 is assumed. The code nnn can be 1 to 999 (leading 
FILES-nnn > Optional zeros are not required). If FILES-ALL is specified, all labels are printed. 







FILES-ALL 







@ lf TYPE is not specified, TYPE-CHECK is assumed. 
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Note: The following message is printed if the printer is 


MESSAGES FOR TAPE INITIALIZATION 
not allocated to another partition. 


The following OCL statements are needed to toad the tape 


initialization program. 


OCL CONSIDERATIONS 





bw ad at md pw A et te 
yw td tot tw ae i= VQVve0 t= VOOVU 
t= Voveyv += VYyeVey ia Us os a LL (<a Ud Gd Ld a 
|< WU t< WU iz aaaaa 12 aaaaa 
c 12 aaaaa 12 aaaaa 1a adqaq la daqaqqd 
® c a aqaadad 1a addadd tw bm te yuu Fm ae ee pm pe 
c o PW RReee hw) eee i= ZETTT ie EETIT 
Sn ee EeEEE [- EEETT 1% Bo0065 1% 80556 
Sy,rF 2 1? gassed iy O8co0o 1 SSNN5 t SSN58 
“~~ A Soc 1 SaASnNN 1 sSNA * i * ' 
Dv * ! * 1 * rr ay * ive) 
o oe | ! 
g Oo: 2 * {iu * pw * ix * 1= 
o 8k + 1= + b= * (<a + 1 
£8 o Oo @ % l< * iz * id * 4 
LL oS aN # 12 *, Vee 2 ie 
as oO = ie) 12 io 1D 
atk £E S 1S 19 Heme ed 
“= <O - [> ° ' 1 
x 5 ' ‘ Vcc bd 
Bexnie tow S ea ‘ lad " baco 
3° pis vv fam vr l= be 
o 2 og r © g ~ [ee ee Aes . Naz . NxZz 
wn ~ . Naz N a ~ 
CTP Ce N au 
wo N au So Qo 
ee 3 2 rere yw 
sa-~fa . Ow ° wow 2 Z2> ° Z2> 
vw & ee ° 2> ° 2> 3 ume a wae 
= - £ vo, ‘ec & Oo Lowe 9 nee 1 Om { aw 
‘E c 1 ou 1 as wo Oaz wi On2 
Fos 8 5 3 3 w one wu aaz x OL = oL 
= 2 oL = OL Fa a00 = 200 
~ A100 ~ 200 “ae wu - uu 
Mus - ae wo wir ; 
= we WO ee rey ~ mn - 
w WwW 4 Lexy tooo 98 L*%0 to0orcoe 
a Q LxX¥Y ro000 Q L1¥*¥Y +0000 QO 192 NSO U 1MZ2 NGRan 
Oo IVZz Noam U tVYl NORON oO j Ow WAO00 we | Ww NADOO 
oO VO 10UW RKReOQDO vu [YW WAs09 led 99005 1 aH MOTR00 
_ Lu b+ 09505 ~ [a4 997905 % 12 603555 «e 12 66065 
Ee - * 1B G55d66 x [2 55500 wy uo | 
wot w < 14Yy 30909 €<€ 108 90000 
x Lu < Iwo 090900 < $ov 290000 x we ON = Puee ONM 
N nil £ fwe OMA SF swe ONIN ~ oY 1ew A90909 Ww 14u A09009 
~“ a LM FLY BOQDOO ~ Ye [ew aoa000 Nn 1 4 90p909 ~ t{ 4 90000 
— Ss & | 4 23229 6 | -h 28e03 N \ 33365 Q i 95380 
N ! eeos N 4 I A ' 
<x oO y | o ! o | x 4 {ox 
eK os | & q {_¢£ N (ie N [Me 
wae Oo N [te Ss [xr . od [ae river a {Je mwoonn 
a ae |a- veers 4 {J— xm Dnn 4 |req =) }aa 
2 oO o }ua 4 as ' ) t t 
= “E 1 i 9 $2 BS fo 
H fo& we | = & [va Hu lor 
ra ues aeyuuu a areca eeu 8 ea See 8 r | zoe 
a a wu mo 1a a 
BO 7 |e an tau w wy 
ww a a a 
a a a a 
“« a - ~ 
Las Lo 1 1 
' ' 4 2 
OD ww ~ =f a a 
o-= < =< 3 ay 
2 “ ~ x ~ 
“ c 3s ” x x a Ei 
om i w ee) w al ‘ ~ A YY | mm vr 4 4 
= PN he ead Bet ~ <a mmm <= (Ueto top terer 
wo 3 a. Q eS < PWD et ted eee <a bade nnn = wu : a i Wei, od! ay Pm Wl 
£6 o 8 o Sob jae Ww Soe te Oo s+ jmx aoaar a os t=er aaaaa 
* t > & 4 jx aaaaa Q 4 [me aaaaa Yom jut «eaqy Yaw |uw aaqaaad 
we 0 Cy = Yom jun gaged Y— luu adaga Orie feet’ er or ren reas me 
os BG - — bo) OD eee ee SD ee 5 ' a \ 

— te © n” a t = t tw IVINS SY tw LILA Uy 
co he wu DAISY bw DOO ehh emt ed WL 
cs 3 os £ i, tee ee. er “aie anand a. hedionane oe = Shetty Senate 
= © oO o a p= mma may ao p= eqeem + fad SRARN 2 lad SERRE 
ro o = x aq SRRRER co jad -ARRR Ss SRRRN > SeeReE 
os c x (a ht a xo <t xo 
oO E oO 5 aNmM 4 xy She < xa [ool eel eel De ai tte ey tw 

* Ree a) tu at pw 1 , 
o = o ns 
Poa d ' : mnnWws w ul nnn 
a E 9 E Pore ow ‘ tb Wawaltataral wu pw DU yu Ps ' posh Ste : = A dt pd ot 

oO - Oo ~ 1 = [ew a | eeu 
» © ° eS te tt os o pL atte a PR Ae tM | age moamms QT ptr mmm 
xo oe Cc vz2zZz SA Gate mime ZN te Meme ee abe BERR oe ote ERR 
- a <= 25 ~ REERE He Ne REAR SEEN -ehhe 

oO a 22 ied aut < 1 wa 1 aD 
cs Mw ae = wane 1 xO ERERE 1 Xx ONNENERR it x a &% 
oa a 25 oa sass er GS Bee aia — 2 

LL aaJs ox ~ x > a meee > wz sea 
no v <q oD & adda Z2 ead el ect ed et oe a eel QR, Sent testo om. DS wou vCvva. D> wow YVoourn 
7 os ‘aual =o Oe a Pets > Da VoOvog 3 wea 2ov0eN * SA OC90 * SA B90O9 
Coe “aoc . DADA + SA 399309 * > 90000 * 2 0000 * oO 23900 
o on uw an 2 S ° ws 7 = 90909 * a 20099 is : 
—— ata * <a + <a 
3 7 c Ss c a asa5 * < * < * x * x 
o os s =, 0 8 e Ue * x % x, wu web 
Epo = meee wi a “a ~_ 
:. Ae al oy & >> >> al is ae Boia 
7 Ze Q So «28 3 San% ia a Le Zig 
z esi > ES 2 woaese i. te = Sais 
SS = te & 4 ~ 12 
- 5 9 4 w ao < o = NANNY 1 i Z {au pu 
“2 BOW Oe Q ey Sar ot pa ie) uy ye 
Hy - ~ DQocHo rs: 19a i a ows 
> 2x ° i cS N & Zz tite i (ey tt aot 
Qa Oa ke = a ~ pu rt tt pus aNAS A Ke Te aN A 
qzZz yee 2 LD oo ao - aaan ba ANAT Iw aNM io UWwuswe! to loud) uu 
2 Q Foal 7 >>>> Ps Wau Po ws fe Copedep cick eS) a5 
LL 
OD 2 90 Oo Oona € F Re = a I= ba ae San lak. concer 
—_ a oy - =r 6 2 Pie. eth eta ee alt ae once 1 bau 3 4 wa 
Qa - owe 2 A Z4IIU9 { Wa ! Perera re ; a 
~} os a 2 ~~ oe @ vaoocoz ! teed Pus anmasa 2 fwd anne 
= @ a = or a w JS&>>>>w UF ger wey Sm pin Patt ADD00 [aw agQ000 
< E wv x Se 8 Paw 90000 1! aw 90000 Ilmun 39909 P=7 90005 
Foes & FEE ZF ssw |c° 33338 1c? 33335 Ber Rees ne Pee 


4-236 


MEANING OF VOLUME LABEL INFORMATION 


Heading Meaning 


Volume Label 











FILE SERIAL The volume serial number (from the REEL parameter). 









OWNER CODE Additional identification (from the 1D parameter). 





Header 1 Label 










FILE SEQ Sequence number of the file on the volume. 











FILE-IDENTIFIER 





The filename of the file on tape. This is the name from the LABEL parameter of 
the OCL FILE statement when the file was created. 











VOL SEQ The sequence number of this volume in a multivolume file. 









CREATE DATE 






The date this file was created. This is a Julian date. The format is yyddd where yy 
is the last two digits of the year and ddd is the day in the year. 
Example: 77315 = the 315th day of 1977 or November 11, 1977. 












EXPIRE DATE 





The date this file expires. This Julian date is the creation date plus the number of 
days specified by the RETAIN parameter on the OCL FILE statement. 










FILE SERIAL The serial number of the tape volume. This is the same as the SERIAL field in 
the volume label. However, for multivolume files, it is the same as the SERIAL 


field of the first volume’s volume label. 







Header 2 Label 











REC FORM 





The record format of this file (from the RECFM parameter on the OCL FILE 
statement when this file was created). The formats are: 







F — Fixed length 






V — Variable length 






U — Undefined length 









BLK ATTR Block attributes: 





B — Blocked records 














— Spanned records 






— Blocked and spanned records 






blank — Neither blocked nor spanned 


Note: Spanned records cannot be created on System/3. 
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Heading Meaning 


REC LENG Record length (from the RECL parameter on the OCL FILE statement when this 
file was created). 













BLOCK LENG 





Block length (from the BLKL parameter on the OCL FILE statement when this 
file was created). 















RECORDING TECHNIQUE T 


Odd parity with translation 





Cc Odd parity with conversion 


E 


Even parity without translation 
ET — Even parity with translation 


blank — Odd parity without translation or conversion 





PRTR CNTRL 














Printer control character. This field is blank on tapes created on System/3. 
For tapes created on other systems, the characters are: 


A 





— ASCII control characters 


M 





— Machine control characters 


blank — No control characters 







JOBNAME/STEPNAME 






Identifies the job that created the tape. The JOBNAME field coritains the job 
name and the STEPNAME field contains the name of the step within the job. 
The JOBNAME is blank if JOBNAME is the same as STEPNAME. 
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Tape Error Summary Program—$TVES 
PROGRAM DESCRIPTION 


The tape error summary program has the following 
function: 


Display magnetic tape errors 


The IBM System/3 Model 15 keeps an account of errors 
that occur on the tape drives. This error information is 
stored on one of the customer engineer tracks located on 
the volume from which an IPL is performed. The Tape 
Error Summary program provides a summary, by volume 
and by unit, of temporary read and write errors. 


This program does not reset the disk area that contains the 
error statistics. Therefore, you should periodically run 
$TVES to prevent the overlaying of data on the track. 
(The system will not issue a message if the data is overlaid.) 


There are no control statements necessary for this program. 
After being loaded from the program or system pack, the 
tape error summary program reads the data from the disk 
and sorts it by volume and unit. When ail the data is read 
or the available main storage is filled, the error data is 
printed. If no tape errors are recorded, the message 
THERE ARE NO VALID TAPE ERRORS LOGGED is 
printed. 
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ERROR LOGGING FORMAT 









SUMMARY MAGNETIC TAPE ERROR STATISTICS BY VOLUME DATE 03/27/76 


® @ @ © ® 


VOLUME S10 TEMP TEMP WRITE 
SERIAL COUNT READ WRITE SKIP 













Ti 06512 0000 0028 0028 
TAPEL O0O01L6 0000 ooo 0001 
TAPE3 00021 0000 0001 0001 



















SUMMARY MAGNETIC TAPE ERROR STATISTICS BY TAPE UNIT DATE 03/27/76 


@ @ © ® © 


TAPE SIO TEMP TEMP WRITE DIAG 
UNIT COUNT READ WRITE SKIP TRACK 



















Ti 06528 0000 0029 0029 0000 
T4 00021 0000 OooL 0001 0000 





@) For any file that has more than two volumes on a unit 
unit except the last volume. 


abate is printed as the volume serial for all volumes on that 






For a tape that is not being used by tape data management ,,,,,, is printed as the volume serial. 






For non-labeled tapes ****** is printed as the volume serial. For tapes with nonstandard labels, NS is printed as 
the volume serial. 






@) The number of tape operations performed (SIO means Start 1/0). 


@ Temporary read errors. 







® Temporary write errors. 






©) Write skips caused by temporary write errors. 


® Diagnostic track errors. This is used by IBM customer engineers. 





OCL CONSIDERATIONS 


The following OCL statements are needed to load the tape 
error summary program. 


// LOAD $TVES,code 
// RUN 


The code you supply depends on the location of the simu- 
lation area containing the program. Possible codes are 
R1, F1, R2, F2. 
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VTOC Service Program—$WVTOC 

PROGRAM DESCRIPTION 

The VTOC service program has the following function: 
Compress a VTOC 

For possible improved performance in file access time, all 

file directory entries are moved to the beginning of the 

VTOC (volume table of contents). 


CONTROL STATEMENT SUMMARY 


The control statements you must supply depend on the 
desired results. 


Function Control Statements 
| 


Move all active file directory // COMPRESS PACK-name,UNIT-code 
entries to the beginning of the // END 
VTOC 






PARAMETER SUMMARY 


Parameter Description 
_ eee 


PACK-name Name of the main data area 


UNIT-code Location of the area. Possible codes are those for the main data areas. 





PARAMETER DESCRIPTIONS 
PACK Parameter 


The PACK parameter (PACK-name) tells the program the 
name of the main data area on which the VTOC is to be 
compressed. The VTOC service program compares the. 
name in the PACK parameter with the volume label of the 
area to ensure that they match. 


UNIT Parameter 
The UNIT parameter (UNIT-code) tells the program the 


location of the VTOC to be compressed. Possible codes 
are those for the main data areas. 


VTOC Service Program—$WVTOC 4-241 


OCL CONSIDERATIONS 


The following OCL statements are needed to load the 
VTOC service program: 


// LOAD $WVTOC,code 
// RUN 


The code you supply depends on the location of the 


simulation area containing the VTOC service program. 
Possible codes are R1, F1, R2, F2. 


EXAMPLES 


Figure 4-118 shows the OCL statements needed to load 
the VTOC service program. 

















Explanation: 


VTOC service program is loaded from F1. 


Figure 4-94, OCL Load Sequence for VTOC Service Program 
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Figure 4-95 shows the control statements needed to 
compress a VTOC. 











Explanation: 


@ The main data area containing the VTOC to be com- 
pressed is named 00003 (PACK-00003 in the COMPRESS 
statement). 


@ The main data area containing the VTOC to be com- 
pressed is on volume 1 of drive 3 (UNI T-D3). 


Figure 4-119. Control Statements for Compressing a VTOC 





Hexadeciaml 
Character Equivalent 


Blank 


b 







aS 


ay 





oa 
ow 


> n 


a 
oO 











on 
Tn 


- (minus) 






X 


Tye j 


a 
QO 


— (underscore) 


oO 
Np 





~ 


o 
n 


A 





a) On the CRT a X'DO’ displays as an &. 
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Hexadecimal 
Character Equivalent 


~ ~ 
nn oO 





~ 
@ 






" (apostrophe) 7D 






oO 


oO 
nN 


~ 
m 


oO 
ow 









oO 
o 


Cc 


~S 


o > 


g a2 
oO © 


OQ 
oc 





Oo 
w 






D 


~ 





Hexadecimal 
Character Equivalent 
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The factors that control file size are explained in the /BM 
System/3 Disk Concepts and Planning Guide, GC21-7571. 
The structure of a file (sequential, direct, or indexed) on 
the main data area of a 3340 or 3344 is virtually identical 
to the structure of a file on the 5445. The main data area 
on a 3340 consists of 48 records per track and 166 cylin- 
ders; each main data area on a 3344 consists of 48 records 
per track and 186 cylinders; the 5445 consists of 20 records 
(sectors) per track and 200 cylinders per disk pack. 


Following is a list of similarities between the 5445, 3340, 
and 3344: 


@ Index entries are calculated using the following formula: 
key length + 4. 


@ Index and data areas are contained on whole tracks. 


@ Indexed files with indexes of 16 tracks or more have 
space reserved for a track index. 


@ Spanned records are used. 


@ The index area must have at least one extra record 
(sector) for a delimiter or at least three extra records 
(sectors) if additions will be made to the file. 


® There are 20 tracks per cylinder (3980 tracks on the 
5445; 3320 tracks of main data area on the 3340; 3720 
tracks of main data area on the 3344). 


The following tables and discussion include the specific 
information necessary to evaluate file size on the 3340 or 
3344 main data area. 


Appendix B. Calculating File Size 


DATA AREA TRACK REQUIREMENTS 


Sequential, direct, and indexed data areas are all structured 
the same. Figure B-1 shows the number of tracks needed 
to store a given number of logical records, using various 
logical record lengths. 


Appendix B. Calculating File Size B-1 


NUMBER OF TRACKS! 

Logical Record Logical Record Logical Record Logical Record Logical Record 
Length 50 Length 64 Length 100 Length 128 Length 256 
3340 3340 3340 3340 3340 

and and and and 
3344 


———— en nnn one SSS EETE—T—=Xx===222..———— 










Number of 
Logical 
Records 





500 5 3 7 3 10 5 13 6 25 11 
1000 10 5 13 6 20 9 25 11 50 21 
1500 15 7 19 8 30 13 38 16 75 32 
2000 20 9 25 11 40 17 50 21 100 42 
2500 25 11 32 14 49 21 63 27 125 53 
3000 30 13 38 16 59 25 75 32 150 63 
3500 35 15 44 19 69 29 88 37 175 73 
4000 40 17 50 21 79 33 100 42 200 84 
4500 44 19 57 24 88 37 113 47 225 94 
5000 49 21 63 27 98 41 125 53 250 105 
5500 54 23 69 29 108 45 138 58 275 115 
6000 59 25 75 32 118 49 150 63 300 125 
6500 64 27 82 34 127 53 163 68 325 136 
7000 69 29 88 37 137 57 175 73 350 146 
7500 74 31 94 40 147 62 188 79 375 157 
8000 79 33 100 42 157 66 200 84 400 167 
8500 84 35 107 45 167 70 213 89 425 178 
9000 88 37 113 47 176 74 225 94 450 188 
9500 93 39 119 50 186 78 238 99 475 198 

10,000 98 41 125 53 196 82 250 105 500 209 
10,500 103 43 132 55 206 86 263 110 525 219 
11,000 108 45 138 58 215 90 275 115 550 230 
11,500 113 47 144 60 225 94 288 120 575 240 
12,000 118 49 150 63 235 98 300 125 600 250 
12,500 123 51 157 66 245 102 313 131 625 261 
13,000 127 53 163 68 254 106 325 136 650 271 
13,500 132 55 169 71 264 110 338 141 675 282 
14,000 137 57 175 73 274 114 350 146 700 292 
14,500 142 60 182 76 284 119 363 152 725 303 
15,000 147 62 188 79 293 123 375 157 750 313 
15,500 152 64 194 81 303 127 388 162 775 323 
16,000 167 66 200 84 313 131 400 167 800 334 
16,500 162 68 207 86 323 135 413 172 825 344 
17,000 167 70 213 89 333 139 425 178 850 355 
17,500 71 72 219 92 342 143 438 183 875 365 
18,000 176 74 225 94 352 147 450 188 900 375 
18,500 181 76 232 97 362 151 463 193 925 386 
19,000 186 78 238 99 372 155 475 198 950 396 
19,500 191 80 244 102 381 159 488 204 975 407 
20,000 196 82 250 105 391 163 500 209 1000 417 
21,000 206 86 263 110 411 171 525 219 1050 438 
22,000 215 90 275 115 430 180 550 230 1100 459 


1 : . ae : 
The number of tracks for data records does not include indexes. For the 3340 and 3344, this is the main data area, not the 
simulation area. 


Figure B-1 (Part 1 of 2). Disk Requirements for Data Records 
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NUMBER OF TRACKS! 


Logical Record Logical Record Logical Record Logical Record Logical Record 
Length 50 Length 64 Length 100 Length 128 Length 256 
3340 





Number of 3340 3340 
Logical and 
Records 
23,000 225 94 288 120 450 188 575 240 1150 480 
24,000 235 98 300 125 469 196 600 250 1200 500 
25,000 245 102 313 131 489 204 625 261 1250 521 
26,000 254 106 325 136 508 212 650 271 1300 542 
27,000 264 110 338 141 528 220 675 282 1350 563 
28,000 274 114 350 146 547 228 700 292 1400 584 
29,000 284 119 363 152 567 237 725 303 1450 605 
30,000 293 123 375 157 586 245 750 313 1500 625 
31,000 303 127 388 162 606 253 775 323 1550 646 
32,000 313 131 400 167 625 261 800 334 1600 667 
33,000 323 135 413 172 645 269 825 344 1650 688 
34,000 333 139 425 178 665 277 850 355 1700 709 
35,000 342 143 438 183 684 285 875 365 1750 730 
36,000 352 147 450 188 704 293 900 375 1800 750 
37,000 362 151 463 193 723 302 925 386 1850 771 
38,000 372 155 475 198 743 310 950 396 1900 792 
39,000 381 159 488 204 762 318 975 407 1950 813 
40,000 391 163 500 209 782 326 1000 417 2000 834 
41,000 401 167 513 214 801 334 1025 428 2050 855 
42,000 411 171 525 219 821 342 1050 438 2100 875 
43,000 420 175 538 224 840 350 1075 448 2150 896 
44,000 430 180 550 230 860 359 1100 459 2200 917 
45,000 440 184 563 235 879 367 1125 469 2250 938 
46,000 450 188 575 240 899 375 1150 480 2300 959 
47,000 459 192 588 245 918 383 1175 490 2350 980 
48,000 469 196 600 250 938 391 1200 500 2400 1000 
49,000 479 200 613 256 958 399 1225 511 2450 1021 
50,000 489 204 625 261 977 407 1250 521 2500 1042 
75,000 733 306 938 391 1465 611 1875 782 3750 1563 
100,000 977 407 1250 521 1954 814 2500 1042 5000 2084 
125,000 1221 509 1563 652 2442 1018 3125 1303 6250 2605 
150,000 1465 611 1875 782 2930 1221 3750 1563 7500 3125 
175,000 1709 713 2188 912 3418 1425 4375 1823 8750 3646 
200,000 1954 814 2500 1042 3907 1628 5000 2084 10,000 4167 


The number of tracks for data records does not include indexes. For the 3340 and 3344 this is the main data area, not the simulation area. 


Figure B-1 (Part 2 of 2). Disk Requirements for Data Records 
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INDEX AREA TRACK REQUIREMENTS The index area also includes a disk track index if the file 
index requires 16 or more tracks. Figure B-2 shows the 

indexed files also require tracks for the file index. The file sizes supported by one track of the disk track index 

following chart shows how many keys can be contained for various key lengths. 

on one track of the file index. 





File Capacity 
Number of Keys Per Index Track (Number of Logical Records) 
Key-Length 5445 3340 and 3344 Key-Length 5445 3340 and 3344 
1 1020 2448 1 1,040,400 5,992,704 
2 840 2016 2 705,600 4,064,256 
3 720 1728 3 518,400 2,985,984 
4 640 1536 4 409,600 2,359,296 
5 560 1344 5 313,600 1,806,336 
6 500 1200 6 250,000 1,440,000 
7 460 1104 7 211,600 1,218,816 
8 420 1008 8 176,400 1,016,064 
9 380 912 9 144,400 831,744 
10 360 864 10 129,600 746,496 
11 340 816 11 115,600 665,856 
12 320 768 12 102,400 589,824 
13 300 720 13 90,000 518,400 
14 280 672 14 78,400 451,584 
15 260 624 15 67,600 389,376 
16 240 576 16 57,600 331,776 
17 240 576 17 57,600 331,776 
18 220 528 18 48,400 278,784 
19 220 528 19 48,400 278,784 
20 200 480 20 40,000 230,400 
21 200 480 21 40,000 230,400 
22 180 432 22 32,400 186,624 
23 180 432 23 32,400 186,624 
24 180 432 24 32,400 186,624 
25 160 384 25 25,600 147,456 
26 160 384 26 25,600 147,456 
27 160 384 27 25,600 147,456 
28 160 384 28 25,600 147,456 
29 140 336 29 19,600 112,896 


Since there is one key for each logical data record in the Figure B-2. File Capacity for One Track of Disk Track Index 


file, the number of tracks required for the file index is 


il Icul f i Ff logical ds. 
easily calculated for a given number of logical records TRACK USAGE FOR INDEX FILES 


When loading an indexed file, you specify either the num- 
ber of records in the file or the number of tracks. When 
you specify the number of tracks, the system determines 
how the specified space is to be split among data tracks, 
file index tracks, and disk track index tracks. Figure 8-3 
illustrates how the system splits an area on the 3340 or 
3344 when the TRACKS parameter is used in the OCL 
statement, and illustrates the maximum record capacities 
for various size indexed files. Remember to use the smaller 
of the two numbers: number of keys, or number of logical 
data records. 
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Logical Number of Number of 





Number of Key Record Disk Track File Index Number of Number of Logical Data 
Tracks Length Length Index Tracks Data Tracks Keys Records 

5 5 64 1 4 1,316 768 
5 5 128 1 4 1,316 384 
5 5 256 1 4 1,316 192 
5 10 64 1 4 846 768 
5 10 128 1 4 846 384 
5 10 256 1 4 846 192 
10 5 64 2 8 2,660 1,536 
10 5 128 1 9 1,316 864 
10 5 256 1 9 1,316 432 
10 10 64 2 8 1,710 1,536 
10 10 128 1 9 846 864 
10 10 256 1 9 846 432 
50 5 64 7 43 9,380 8,256 
50 5 128 4 46 5,348 4,416 
50 5 256 2 48 2,660 2,304 
50 10 64 9 41 7,758 7,872 
50 10 128 5 45 4,302 4,320 
50 10 256 3 47 2,574 2,256 
100 5 64 13 87 17,444 16,704 
100 5 128 7 93 9,380 8,928 
100 5 256 4 96 5,348 4,608 
100 10 64 1 18 81 15,534 15,552 
100 10 128 10 90 8,622 8,640 
100 10 256 6 94 5,166 4,512 
500 5 64 1 63 436 84,644 83,712 
500 5 128 1 34 465 45,668 44,640 
500 5 256 1 18 481 24,164 23,088 
500 10 64 1 91 408 78,606 78,336 
500 10 128 1 50 449 43,182 43,104 
500 10 256 1 27 472 23,310 22,656 
1,000 5 64 1 125 874 167,972 167,808 
1,000 5 128 1 67 932 90,020 89,472 
1,000 5 256 1 35 964 47,012 46,272 
1,000 10 64 1 182 817 157,230 156,864 
1,000 10 128 1 100 899 86,382 86,304 
1,000 10 256 1 53 946 45,774 45,408 
2,000 5 64 1 250 1,749 335,972 335,808 
2,000 5 128 1 134 1,865 180,068 179,040 
2,000 5 256 1 69 1,930 92,708 92,640 
2,000 10 64 1 364 1,635 314,478 313,920 
2,000 10 128 1 200 1,799 172,786 172,704 
2,000 10 256 1 106 1,893 91,566 90,864 
3,000 5 64 1 375 2,624 503,972 503,808 
3,000 5 128 1 200 2,799 268,772 268,704 


Figure 8-3 (Part 1 of 2). Sample Record Capacities of Indexed Files 
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Logical Number of Number of 





Number of Key Record Disk Track File Index Number of Number of Logical Data 
Tracks Length Length Index Tracks Data Tracks Keys Records 
3,000 5 256 1 104 2,895 139,748 138,960 
3,000 10 64 1 546 2,453 471,726 470,976 
3,000 10 128 1 300 2,699 259,182 259,104 
3,000 10 256 1 158 2,841 136,494 136,368 
3,320 5 64 1 415 2,904 557,732 557,568 
3,320 5 128 1 222 3,097 298,340 297,312 
3,320 5 256 1 115 3,204 154 532 153,792 
3,320 10 64 1 604 2,715 521,838 521,280 
3,320 10 128 1 332 2,987 286,830 286,752 
3,320 10 256 1 175 3,144 151,182 150,912 


Figure B-3 (Part 2 of 2). Sample Record Capacities of Indexed Files 


CORE INDEX 


The core index is a table of pointers to the index tracks of 
an indexed file. The core index is built just before your 
COBOL or RPG I! program is executed and contains, at 
most, one entry for each index track. Figure B-4 shows 
the number of bytes of main storage required for a core 
index that provides the most efficient random processing 
of an indexed file, using key length and number of logical 
records as variables, 


(Number of Logical Records (in 1000s) 


5 8 10 15 20 50 





4 12 24 36 42 60 84 198 
5 14 28 42 56 84 105 266 
6 16 40 56 72 104 136 336 
7 18 45 72 90 126 171 414 
8 20 50 80 100 150 200 500 
9 33 66 99 121 187 242 605 
10 36 72 120 144 216 288 696 
11 39 91 130 169 247 325 806 
12 42 98 154 196 280 378 924 
13 45 105 180 210 315 420 1,050 
14 48 128 192 240 368 480 1,200 
15 68 153 221 289 425 561 1,377 
16 72 162 252 324 486 630 1,566 
17 76 71 266 342 513 665 1,653 
18 80 200 320 280 580 760 1,900 
19 84 210 336 399 609 798 1,995 
20 110 242 374 462 704 924 2,310 


Figure B-4. Core Index Sizes for 3340 and 3344 Single Volume Indexed Files 
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CALCULATING FILE SIZES (MAIN DATA AREA)— 
SUMMARY 


This section contains step-by-step explanations of some 
common calculations of file sizes 


Determining the Number of Tracks in a Sequential or 
Direct File 


1. Number of logical records x logical record length 
= number of characters 


Number of characters (from step 1) 
12,288 (number of characters/track) 


= number of tracks (round to the next highest 
whole number) 


Determining the Number of Tracks in an Indexed File 
(Main Data Area) 


To determine the number of data tracks in an indexed file, 
the following two steps should be used: 


1. Number of logical records x logical record length 
= number of characters 


Number of characters (from step 1) 


a 12,288 (number of characters/track) 


= number of data tracks (round to the next highest 
whole number) 


The following four steps should then be followed to deter- 
mine the number of file index tracks in an indexed file: 


1. Key length + 4 = index length 


256 (number of characters/record) 


“ Index length (from step 1) 
= number of entries per record (drop remainder) 
3 Number of logical records 


Number of entries per record (from step 2) 


= number of records (round to the next highest 
whole number; then, add one record for a delim- 
iter, and two or more additional records if you 
plan to add logical records to the file later) 


Number of records (from step 3) 
48 (number of records/track) 


= number of index tracks (round to the next 
highest whole number) 


Determining the Number of Tracks of Disk Track Index 


If an indexed file has more than 15 index tracks (from 
step 4 in the preceding calculation), the file will have a 
disk track index in addition to the file index. The follow- 
ing two steps should be used to determine the number of 
tracks needed for the disk track index: 


1. Number of entries per record (from step 2 of preced- 
ing calculation) 

x number of records per track (48) 

= keys per track 

Number of index tracks (if greater than 15) 

Keys per track 

= number of disk track index tracks (round to the 


next highest whole number) 


The total number of tracks in an indexed file can be 
determined by adding the number of data tracks, the 
number of file index tracks, and the number of disk track 
index tracks. 


Converting Cylinder/Track to Track Number 
To convert cylinder/track to track number, multiply 
cylinder number by the number of tracks on each cylinder 
and add track number. 
Examples: 
Simulation area 
6/1 = cylinder/track 
6x2+1=13 
13 = track number 
Main data area on 3340 and 3344 
6/1 = cylinder/track 


6x 20+ 1= 121 
121 = track number 
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Converting Track Number of Cylinder/Track 
To convert track number to cylinder/track, divide track 
number by the number of tracks on a cylinder. The 
quotient is the cylinder and the remainder is the track. 
Examples: 
Simulation area 

13 = track number 

13 + 2 = 6 (remainder 1) 

6/1 is the cylinder/track 
Main data area on 3340 and 3344 

121 = track number 


121 + 20 = 6 (remainder 1) 
6/1 is the cylinder/track 
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Appendix C. Operator Control! Commands (OCC) 


OCC SUMMARY INFORMATION ABOUT SYNTAX ILLUSTRATIONS 

All operator control commands (OCC) are entered from @ Uppercase letters, numbers, and commas must be entered 
the CRT/keyboard. By using OCC, you can communicate as shown. Parentheses indicate an abbreviation for the 
with the system before, during, or after job execution. item above. Do not enter brackets, braces, or paren- 

You can also use the OCC function to enter comments in theses. 

the system history area. Each comment is identified by an 

asterisk in position 1. A maximum of 40 characters, includ- @ Lowercase items represent variables. 

ing the asterisk, can be entered. For a complete description 

of OCC, see the /BM System/3 Model 15 Operator’s Guide, @ Items or groups of items within brackets [ ] are optional— 
GC21-5075. enter one or none. 


@ \|tems in braces { \ are alternatives—enter one. 


@ Optional items that are underlined indicate the default 
value. If none of the items is entered, the default value 
is used. 


@ All operands are positional. Operands must be entered 
in the order shown. If any operand (except the last) 
is omitted, a comma must be entered in its place. 


@ There must be at least one blank between the command 
and the operands. The first blank after the operands 
start terminates the operands. There must be only 
blanks after the last operand. 
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ee ae ee 


CANCEL P4 & Cancels program execution in 
(CN) a partition. The 2 or 3 follow- 
P2 ing the P1, P2, or P3 indicates 
the option of the cancel. 
P3 
Cancels spooling support (at 
SPOOL IPL. only). 
(SP) 
*RDRO 
(*RQ) 
“PRTO Cancels the entire queue 
(*wa) a q : 
*PCHO 
(*PQ) 
jobname 
RORO, { ee 
. Cancels a job or job step, or 
PRT, J/obname =| _[, stepname i multiple jobs or job steps. 
(Wo) characters > characters 


PCH, piesa - , stepname _ 
(PQ) characters , characters 
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[command | opens Fumes, 


CHANGE 
(G) 


DATE 
(DT) 


CORE size, Haan ven \ 


CPY,[number], 


CRD, card type, 


FRM,form 


PTN 


VDOWPYPWHNI]- 


: 
pty, \2 


"£3 
(Y) 4 
5 


mm/dd/yy 
mmddyy 
dd/mm/yy 
ddmmyy 


(RQ) characters ** Changes the main storage 


requirements, number of 





PRTOQ copies, card type, forms 
{WOQ) os stepname - type, partition assignment, 
3 . . < . 

PCHO + neamen’*y ee of Job priority of . job oF 

(PQ) job step or multiple jobs 
or job steps on a queue. 

ken oe , stepname 

Ka Noancat? , characters** 

Q 





‘ PRT (jobname , stepname 
sype- | (wa) characters ** , characters ** 





[pose a 
"1 (RQ) jobname 


RDRO, | ereestth 
(RQ) : 


jobname stepname 
prs eet, 
(wa) characters , characters 


jobname stepname 
PCHQ : 
; \oaseasy : Seen] 


(PQ) 


Sets the system and partition 
dates. 
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DISPLAY 3P1 Displays the system status, 
(D) STATUS ,P2 Partition status, and 
»P3 area names. 
aN 
HISTORY! [. task | E task ] Displays the history of the 
(H) mee entire system or of one 
through seven tasks. 
SVAID Displays service aids options, 
(SV) 
CORE Displays main storage. 
RDRO Displays the contents of the 
(RQ) spooling queues. 
PRTQ 
(WQ) 
PCHO 
(PQ) 
DUMP P1 z Dumps any partition or all of 
(K) main storage to a printer. Or, 
P2 dumps all of main storage, the 
d SWA, part of the SHA, the 
P3 configuration records, the 
PTF log sectors, microcode 
SYSTEM [,DISK] levels, the error recording 
(S) data, and the saved transient 
, area to the $SYSDUMP file. 
(The transient area is included 
only if a process check 
occurred in the transient 
area and the DUMP command 
is given before end of job for 
that partition.) 
— 


! Possible task operands are Pi, P2, P3, S, SP, OCC, CCP, CCS, CCU, C44, C55, C66, C77, C88, C99, CCC, COD, CEE, CGG, CHH, 
CMM, CPP, CTT, CUU, CVV, CWW, CXX, CYY, CZZ. The meaning of each task operand is included in the /BM System/3 Model 
15 Operator's Guide, GC21-5075. 
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Command Operands Function 





HALT Pi Causes the partition to halt with 

(HT) P2 an EJ or ES message after the 
P3 current job step is complete. 
SHA [,CCP | [ tracks] Causes the system to halt or 


$HACCP to be automatically 
invoked before unprinted system 
history area entries are overlaid. 


HIPTY 
(HP) high-priority Limits the priority of jobs placed 
on the reader queue by $OCOPY 
under CCP. 
HOLD RDRO ae Prevents a job, a job step, or 
(H) (RQ) ? an entire queue from being 
scheduled for input or output. 
PRTO |? jobname - ? stepname | 
(wo) , characters , characters ** 
PCHO , jobname ? stepname | 
(Pa) ,characters** | characters” * 
IDELETE Causes the system to auto- 
(I) matically delete I-type 
(informational) messages 
to which there was no re- 
sponse (when there should 
have been a response). 
KEEP RDRQ, yacece ee Keeps single or multiple printed, 
(KP) (RQ) punched, and executed job steps 
and/or jobs in the hold state on 
PRTO eee . ‘ stepname | the queue. 
(wa) ? ) characters , characters 
PCHO ae “ boneu «| 
(PO) > | characters” , characters 
NOHALT PL Changes the processing mode 
(NHT) P2 of a partition from halt to no- 


halt or allows system history 
P3 area entries to be overlaid 
SHA without operator notification. 
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NOIDELETE Causes the system to cease 
(NI) automatic deletion of t-type 
messages that received no 
response. 
PTY SPOOL Changes the priority for the 
(Y) (SP) system tasks: spooling 
P1 2. (reader, print writer, punch 
7 writer), partition 1, partition 
P2 2, and partition 3. 
P3 
READER PL Changes the system input 
(RDR) P2 | device device for a partition. 
P3 
RELEASE jobriiic 
(R) RDRO ee Releases a job or job step, 
(RQ) 2 multiple jobs or job steps, or 
an entire queue from the hold 
, Jobname > stepname tate. 
hear Eee ? cheractars* | = 
PCHO |? jobname , stepname 
»characters** |, characters** 
RESTART PRT | ,PAGE Restarts a job step’s printed or 
(T) (W) | (PG) punched output. 
PR1 | »number 
(W1) PR1 (W1) and PR2 (W2) are valid 
PR2 operands only if a second 1403 
(W2) Printer is installed. 
PCH 
(P) 
REUSE PRTO . b fei } Causes track groups that have been 
PCHQ Borers aarp nate Printed or punched to be made 


available. (Allows the area to be 
reused.) 
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[mnt [ome *d Se 


SET Pi Overrides the partition and 
P2 file share area size specified 
P3 size during system generation. 
SH 


START 


Restarts spooling in the 
(S) 


SPOOL designated partition. 
(SP) s 

4 on [unit] ,size][,track group size] Starts spooling at IPL. 
RDR[,ROLL] Starts the spooled 
(R) reader, print writer, 
PRT ‘forms type or punch writer. 
(W) : 
PR1 PR1 (W1) and PR2 (W2) are valid 
(W1) operands only if a second 1403 
PR2 Printer is installed. 
(W2) 
PCH 
(P) 


Restarts program execution 
in a partition. 


STOP Terminates spooling in 
(P) SPOOL s specified partition. 
(SP) 'P3 
RDR Stops the spooled reader, 
(R) print writer, or punch 
PRT [STEP WEES 
(W) | (ES) 
PR1 | PAGE PR1 (W1) and PR2 (W2) are valid 
(W1)] (PG) operands only if a second 1403 
PR2 Printer is installed. 
or 


Stops program execution 
in a partition. 
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TIME hh/mm/ss Sets time-of-day clock. 

(TM) hhmmss 

TLOG ON Enables or disables the transaction 

(TL) OFF logging routine (this routine must 
be currently loaded). 

TRACE ON SYSTEM Enables or disables the system 

(E) OFF ( (S) trace routine (which must be 








currently loaded). 
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Appendix D. SUBR15—Library Entry Retrieval Subroutine 


The library entry retrieval subroutine can be incorporated 
into a user-written program to retrieve a single entry or a 

group of entries from any library. The user supplies such 
information as the name of the entry, the unit containing 
the library, and the library to be accessed. 


Library entries are passed to the user program one record 
at atime. The first record returned to the user program 
by SUBR15 for each entry is an appropriate COPY state- 
ment; the last record for each entry is a CEND statement. 
The format of the records produced by SUBR15 is the 
same as that produced by the copy library-to-card function 
of $MAINT. If the records are written to a disk file, that 
file can be processed by the copy file-to-library function 
of $MAINT. 


Note: |f SUBR15 is used in a program executing under 
control of the communications control program (CCP), 

the user must ensure that the library to be used is not 

being changed by another program while SUBR15 is reading 
from it. 
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LINKING SUBR15 WITH RPG I 


SUBR15 is linked to a user RPG II program via an EXIT 
statement followed by seven RLABL statements. (For 
subroutine linkage information, see the /BM System/3 
RPG I! Reference Manual, SC21-7504.) These RLABL 
statements must be specified in the following order: 


Operation Result Field 
Sequence Entry Entry Description 


1 RLABL Field The name of a 1-character alphameric 
RPG HI field that contains a code 
identifying the library to be used. The 
code in the field can be: 


S — Source 

P — Procedure 
O — Object 

R — Routine 


2 RLABL Field The name of a 6-character alphameric 
: RPG It field that contains the name of 

the library entry to be retrieved. If this 
field contains five or fewer characters 
followed by a period (‘ccccc.’), all 
entries having names beginning with 
those characters are copied. (This is 
similar to the ‘characters.ALL’ capa- 
bility of $MAINT.) If the first charac- 
ter of this field is a period, then all 
entries in that library are copied. (This 
is similar to the NAME-ALL capability 
of $MAINT.) 


3 RLABL Field The name of a 2-character alphameric 
RPG I! field that contains a code 
identifying the unit location of the 
library. The code in the field can be: 
R1, F1, R2, F2. 


4 RLABL Field The name of an 80- or 96-character 


alphameric RPG II field that will con- 
tain each record processed by SUBR15. 
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Operation Result Field 


Sequence Entry Entry 
5 RLABL tNnn 
6 RLABL INnn 
7 RLABL INan 


Description 


A unique RPG II indicator to be set on 
if the library entry is not found or if the 
library does not exist on the specified 
unit. 


A unique RPG II indicator to be set on 
when the request for retrieval is com- 
plete. (When this indicator is on, the 
RPG II program can request another 
entry or entries.) 


A unique RPG II indicator to be set on 
when a record is passed to the RPG II 
program by SUBR15. 


Note: The three indicators are set off by SUBR15 upon 


receiving control from the user program. 
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Example 


The following example shows how an RPG I! program uses 
SUBR15: 























































Program 
Identification 







Comments 







Form GX21-9093-2 
Printed in U.S.A 


75 76 77 78 79 BO 
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@ The LIBRY field contains a code (S, P, O, or R) that 
identifies the library. 


@ The NAME field contains the name of the library entry 
or entries to be retrieved. 


@ The UNIT field contains a code (R1, F1, R2, or F2) 
that identifies the location of the library. 


@ The RECLQ6 field is a 96-byte field that contains each 
record processed by SUBR15. 


® Indicator 01 (INO1) is set on if the library entry is not 
found or if the library does not exist on the specified 
unit. 


@ Indicator 02 (INQ2) is set on when the retrieval request 
is complete. 


@ indicator 03 (INQ3) is set on when a record is passed to 
the RPG I! program by SUBR15. 


®@ Indicator 03 is used to condition (via the EXCPT 
operation code) writing the record to a file, and to 
condition the branch to LOOP1 to request another 
record. 
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LINKING SUBR15 WITH ASSEMBLER 


Linkage to SUBR15 from an assembler language program 

is via a branch instruction (to SUBR15) followed by a 
series of parameters. An EXTRN statement with an operand 
of SUBR15 is also needed. When the subroutine is entered, 
the value in index register 1 (XR1) must be the address 
from which the displacement(s) for parameters 5, 6, and 7 
are determined. (Linkage of SUBR15 to the assembler 
program is accomplished by the Overlay Linkage Editor 

of the SCP. For further information about assembler 
linkage, refer to the /BM System/3 Basic Assembler 
Reference Manual, SC21-7509, and to the /BM System/3 
Overlay Linkage Editor Reference Manual, GC21-7561.) 


The series of parameters can be coded as follows: 


Operation Operand 


Sequence Entry Entry Description 
1 DC 1.10’ The address of a 1-byte field that 
DC AL2(address) contains a code identifying the 
library to be used: 
S — Source 
P — Procedure 
O — Object 
R — Routine 

2 DC 1L1‘5’ The address of the rightmost byte 

DC AL2(address) of a 6-byte field that contains the 
name of the library entry to be 
retrieved. If this field contains 
five or fewer characters followed by 
a period (‘ccccc.’), all entries having 
names beginning with the indicated 
characters are copied. (This is 
similar to the ‘characters.ALL’ 
capability of $MAINT.) If the first 
character of this field is a period, 
then all entries in that library are 
copied. (This is similar to the 
NAME-ALL capability of $MAINT.) 

3 DC IL1‘1’ The address of the rightmost byte of 
DC AL2(address) a 2-byte field that contains the unit 

code of the library. The code in the 
field can be: R1, F1, R2, or F2. 

4 DC IL1‘79’ The address of the rightmost byte of 
DC AL2(address) an 80- or 96-character field that will 
or [for 80-char field] contain each record processed by 
DC 1L1‘95’ SUBR15. 

DC AL2(address) 


[for 96-char field] 
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Operation Operand 


Sequence Entry Entry 
5 DC XL1‘00’ 
DC XL1’mask’ 
DC XL1 


‘displacement’ 


6 DC XL1‘00' 
DC XL1‘mask’ 
DC XL1 


’ 


‘displacement 


7 DC XL1‘00’ 
DC XL1‘mask’ 
DC XL1 


‘displacement’ 


Description 


Indicates one of the following 
errors: desired library entry is not 
found; library does not exist on the 
specified unit; or the system source 
get routine ($$SYSG)! cannot be 
found. The ‘mask’ is a byte with 
one bit on and seven bits off: ‘dis- 
placement’ is the displacement from 
the value in XR1 of a 1-byte field. 
If SUBR15 detects the above 
errors, the bit position indicated 

by the mask is set on in the byte 
specified by the displacement. 


Indicates that the request for 
service is complete. When this 
condition exists, the assembler 
program can request another entry 
or entries. The use of ‘mask’ and 
‘displacement’ is the same as for 
Parameter 5. (You may want to 
use the same displacement with 

a different mask.) 


Indicates that a record has been 
Passed to the assembler program 
from SUBR15. The use of ‘mask’ 
and ‘displacement’ is the same as 
for parameter 5. (You may want 
to use the same displacement with 
a different mask.) 


Note: SUBR15 sets off the bits indicated in parameters @ The library specified is not S, P, O,or R. 
5, 6, and 7 each time it receives contro! from the user 


program. 


ERROR IDENTIFICATION 


@ The record length specified is not 80 or 96 bytes. 


@ The unit, library, or name was changed before end-of- 
request was returned. 


If an error is detected, SUBR15 sets all three RPG II @ The three RPG I! indicators or assembler bits are not 
indicators or assembler bits off. Any of the following unique. 


errors can be detected: 


@ The unit specified is not R1, Ft, R2, or F2. 


After one of these errors has been detected, or after a 
no-find error, a request can be made to SUBR15 for 
another library entry. 


@ The unit specified is not supported on the system. 


@ The pack on the unit specified is not initialized. 





$$sySG is a system module (O-module) that is part of the SCP (system control programming) and is required to be on the system pack 
from which an IPL is performed. $$SYSG is not linked into the user’s Object program. 
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Transaction logging provides the ability for batch and CCP 
programs to log data to a 9-track, 1600 bpi magnetic tape. 
This gives the user a convenient way to create an audit 
trail, tog transactions, save program use statistics, save 
terminal use statistics, and save debug information. 


Transaction logging consists of the following system sup- 
port and assembler subroutines. 


$TRLOG: This SCP program is loaded by the user into 
partition one and attached to the supervisor to accept in- 
formation from the user program and write the tape 
records. 


SUBR82: This SCP subroutine is supplied for use by user- 
written RPG It programs. 


SUBR81: This SCP subroutine is supplied for use by user- 
written COBOL and FORTRAN programs. 


In each case, the user program defines the information to 
be logged. 


Note that transaction logging provides only the means to 
Jog transaction data to tape; it is the user’s responsibility to 
access the tape or to otherwise use or analyze the collected 
information. 


Using Transaction Logging 


When transaction logging is used, data is passed to the 
supervisor (STRLOG) by means of the subroutine (SUBR81 
or SUBR82). The supervisor (STRLOG) blocks the data 
into variable tength blocks with a maximum record length 
of 2040 bytes and a maximum block length of 2048 bytes. 
When the block is full, it is written to tape. The user’s 
program does not need to define a tape file for logging 
transactions. 
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Appendix E. Transaction Logging-$TRLOG 


Tape Considerations 


The file created by $TRLOG is a single volume file with 
standard labels. The file characteristics are: 


NAME-$TRLOG,REEL-$TRLOG,RECL-2044, 
BLKL-2048, RECFM-VB 


Loading $TRLOG 


The transaction logging routine, $STRLOG, must be loaded 
into partition 1, and the start address of partition 1 must 
be in the first 64K of main storage. $TRLOG requires 6K 
of main storage, which is permanently allocated as part of 
the supervisor. This 6K of main storage is taken away from 
partition 1 and cannot be reused until the next IPL of the 
system. A minimum partition size of 14K is therefore re- 
quired to start $TRLOG; the 6K is removed from the 
partition, leaving a minimum P11 size of 8K. 


The OCL for $TRLOG must include a FILE statement for 
tape. The following OCL statements are required to load 
the $TRLOG program: 


// LOAD $TRLOG,unit 
// FILE NAME-$TRLOG,REEL-S$TRLOG,UNIT-tape 
// RUN 


where unit is a 5444 unit code (F1, R1, F2, R2), and tape 
is a tape drive unit code (71, T2, T3, T4). 


When $TRLOG has been loaded, partition 1 goes to EJ. 
After that, the partition can be used for other user 
applications. 


When there is a need to run $TRLOG with the System 
Measurement Facility (S83DSMF) and/or the system trace 
facitity (STRACE) the loading sequence is important. 
These 3 programs take their space from P1, and they must 
all be loaded in P1. 
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1. $TRLOG must be loaded first. 
2. S3DSMF must be loaded next. 
3. $TRACE must be loaded last. 


The supervisor, with or without spool support, $TRLOG, 
S3DSMF, and $TRACE must all reside within the first 
64K of main storage. 


Controlling $TRLOG 


Once $TRLOG is loaded, transaction logging is controlled 
through use of operator contro! commands. TLOG ON 
activates logging, and TLOG OFF deactivates logging. 


The following events occur for each command: 


TLOG ON 


— Rewind tape (position at load point). 

— Check for proper tape mounted, standard label, file 
name $TRLOG. 

— Write header label on the tape. 

~— Activate tape logging. 

— Send message to system console indicating tape logging 
is active. 


TLOG OFF 


— Deactivate tape logging. 

~ Send message to system console indicating tape logging 
is inactive, 

— Write trailer label on tape. 

~— Rewind and unload the tape. 


Operating Considerations 


Programs using transaction logging need only to invoke a 
subroutine and pass the data to be logged. If togging is 
active, the data is moved into a 2K buffer. When the 
buffer is full, or when there is insufficient space left for 
the transaction, the buffer is written to tape. If logging 
is inactive, the request is ignored, and the user’s program 
continues uninterrupted. 


E-2 


While logging is active, a permanent tape error or end-of- 
reel condition causes a hard halt which indicates the error 
condition. The operator can retry the operation or con- 
tinue without logging. In either case, if extended restart 
has been generated, the system will automatically restart 
all programs that have halted due to the error. 


The retry causes the user program to check once again to 
see if logging is active. If active, logging is done. If not 
active, logging is bypassed and execution continues. 


When the option is selected to continue without logging, 
no further attempts to log will be made by that user pro- 
gram until that program has been reloaded. This means 
that no other logging requests will be honored, even if 
new and/or different transactions occur that request addi- 
tional logging. 


Programming Considerations 


The subroutines (SUBR81 or SUBR82) are included in 
the user’s source program during compilation. 


The RPG II interface is device SPECIAL with label 
SUBR82 on the file description specifications. Output 
specifications are like any other sequential output. 


The COBOL interface is: 
CALL SUBR81 USING nnnnnn dddddd 


where nnnnnn is defined as PICTURE 99 COMP 4 VALUE 
aaaa (length of the message), and dddddd is defined as 
PICTURE X (aaaa). 


The FORTRAN interface is: 
CALL SUBR81 (nnnnnn,dddddd) 


where nnnnno is a 2 byte integer previously set equal to 
the number of bytes in the message. The variable dddddd 
is an array of information at least nnnnnn bytes long. 


There are two 2K buffers in $TRLOG. As one buffer fills, 
it is written to tape while the other buffer is being filled. 
Therefore, a buffer is always available to the user program. 
These buffers are not specified in the user program. 


Additional information about transaction logging is con- 
tained in the RPG H1, COBOL, and FORTRAN reference 
manuals. 


System Control Programming, 5704-SC2, is shipped from 
the Program Library and includes many individual pro- 
grams. The following is a list of these programs along with 
the primary source of information for that program. Most 
of the programs intended for customer use are described 
in Part 4 of this publication. 


Program 
Name 


Program 


Primary 
References 
(Note 2) 


The following programs are invoked with a // LOAD OCL 


statement: 


$$DISK 


$$RSTR 


$@MRGN 
$@MRPT 
SALT 


$BUILD 
SCE... 


SCNFIG 


$COPY 
$CPRNT 


$DCOPY 
$DELET 
$DISK@ 


$DUMP 


$FCOMP 
SHIST 
$INIT 
SKLEAN 
$LABEL 


$MAINT 
$MPXDV 
$S$OLINK 
$QCOPY 
$RINDX 
$RSALT 
$SCOPY 


Disk Rebuild Program 


Checkpoint Restart 


MRJE/WS Generation 
MRJE/WS Print Utility 


Alternate Track 
Assignment 


Alternate Track Rebuild 


CE Diagnostics 


Configuration Record 


Program 
Copy/Dump 
$SYSDUMP Print 
Program 
Dump/Restore 
File Delete 


Disk Address Compare 


Program 


Dump Tape and Disk 


File Compress 


System History Display 


Initialize Disk 


Chain Cleaning Program 


File and Volume 
Label Display 


Library Maintenance 


Macroprocessor 


Overlay Linkage Editor 


Spool File Copy 
Recover Index 


Reassign Alternate Track 
Simulation Area Program 


SCP Data Areas 
Handbook 

SCP Operator’s 
Guide; SCP 
Reference 

MRJE Reference 
MRJE Reference 
SCP Reference 


SCP Reference 
CE Maintenance 
Manual 

SCP Reference 


SCP Reference 
SCP Operator's 
Guide 

SCP Reference 
SCP Reference 
SCP Data Areas 
Handbook 

SCP Data Areas 
Handbook 

SCP Reference 
SCP Reference 
SCP Reference 
SCP Reference 
SCP Reference 


SCP Reference 


Macros Reference 


OLE Reference 
SCP Reference 
SCP Reference 
SCP Reference 
SCP Reference 
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Program 
Name 


$SG... 

(Note 1) 
$SGFIX 
$SGLOG 
$SGPTF 
$SGPTR 


$SGPVR 


STINIT 
$TRACE 


$TRLOG 
$TRPRT 


$TVES 
$WVTOC 


Program 
System Generation 


Program Temporary 
Patch 
PTF List 


Program Temporary 
Fix 

Program Temporary 
Fix 

Program Temporary 
Fix 

tnitialize Tape 
Trace Routine 


Transaction Logging 
Print Trace Entries 


Tape Error Summary 
VTOC Conversion 


Primary 
References 
(Note 2) 


System Generation 


SCP Data Areas 
Handbook 
SCP Data Areas 
Handbook 
SCP Data Areas 
Handbook 
SCP Data Areas 
Handbook 
SCP Data Areas 
Handbook 
SCP Reference 
SCP Data Areas 
Handbook 
SCP Reference 
SCP Data Areas 
Handbook 
SCP Reference 
SCP Reference 


The following program components are distributed with 
SCP 5704-SC2 but are not loaded by means of a 
// LOAD OCL statement: 


SUBRO7 
SUBRO8 
SUBRO9 
SUBR15 
SUBR81 


SUBR82 


MICR-1255 
MICR-1255 
MICR-1419 
Library Entry Retrieval 
Transaction Logging 
Subroutine 
Transaction Logging 
Subroutine 
Operator Control 
Commands (OCC) 
Spool Commands 
1/O Macros 
ML/MP Macros 


MICR Reference 
MICR Reference 
MICR Reference 
SCP Reference 
SCP Reference 


SCP Reference 


SCP Operator's 
Guide 

Spool User’s Guide 

Macros Reference 

MLMP Reference 
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Note 7: $SG... refers to system generation functions ex- 
cluding those $SG programs specifically listed. 


Note 2: Legend 


SCP Operator’s IBM System/3 Model 15 Operator’s 
Guide Guide, GC21-5075 

SCP Data Areas IBM System/3 Model 15 System 
Handbook Data Areas and Diagnostic Aids, 


SY21-0052. (The programs de- 
scribed in this publication are 
intended for use by the CE pro- 
gram support representative.) 


Spool User's Guide /BM System/3 Model 15 User's 
Guide to Spooling, GC21-7632 


OLE Reference !BM System/3 Overlay Linkage 
Editor Reference Manual, 
GC21-7561 

Macros Reference IBM System/3 Model 15 System 


Control Programming Macros 
Reference Manual, GC21-7608 


System Generation /BM System/3 Model 15 System 
Generation Reference Manual, 
GC21-7616 


MLMP Reference IBM System/3 Multiline/Multipoint 
Binary Synchronous Communica- 
tions Reference Manual, GC21-7573 


MRJE Reference IBM System/3 Model 15 MULTI- 
LEAVING Remote Job Entry/ 
Work Station Support Reference 
Manual, GC21-5115 


MICR Reference IBM System/3 Models 8, 10, 12, 
and 15 1255 and 1419 Magnetic 
Character Readers Reference and 
Program Logic Manual, GC21-5132 


CE Maintenance MDM — Volume 1A CE Diagnostic 
Manual User Guide (which is sent with 
the system) 


F.2 


// CEND 4-129 
// NEND 4-129 
/. statement 1-20, 1-96 
/. statement (OCL) 1-13 
/@ statement 1-20, 1-95 
/@ statement (OCL) 1-12 
$ALT (alternate track assignment 
program) 4-7 
$BUILD (alternate track rebuild 
program) 4-12 
$SCNFIG 
ASSIGN statement 1-21 
during system generation 3-9 
$SCNFIG (configuration record 
program) 4-17 
$COPY (copy/dump program) 4-27 
$DCOPY (dump/restore program) 4-62 
$DELET (file delete program) 4-71 
$FCOMP (file compress program) 4-78 
$HACCP (system history area copy 
program) 4-93 
$SHIST (system history area display 
program) 4-93 
$INDEX40 4-209 
SINDEX45 2-24, 4-209 
SINIT (disk initialization program) 4-100 
$KLEAN (chain cleaning program) 4-108 
SLABEL (file and volume label display 
program) 4-109 
$MAINT (library maintenance 
program) 4-117 
$QCOPY (spool file copy program) 4-167 
$QCOPY files and subroutines 4-185 
$RINDX (recover index program) 4-208 
SRSALT (reassign alternate track 
program) 4-212 
$SCOPY (simulation area program) 4-216 
$SPOOL file 4-78 
$TINIT (tape initialization 
program) 4-233 
$TVES (tape error summary program) 4-239 
$WVTOC (VTOC service program) 4-241 
* (COMMENT) statement 1-99 
* (COMMENT) statement (OCL) 1-13 
* parameter for the LOAD statement 
(OCL) 1-18 
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index 


ACCESS statement ($COPY) 
CYLINDER parameter 4-33 
DISP parameter 4-33 
FROM parameter 4-33 
RECL parameter 4-33 
SECTOR parameter 4-33 
TRACK parameter 4-33 

accessing added records 2-70 

accessing simulation areas 3-7 

add files from one main data area to 

another 4-78 
adding a missing parameter to a 
procedure 2-33 

adding a statement to a procedure 2-33 

adding source library entries 4-137 

additional disk identification 4-102 

advantages of nested procedures 2-35 

AFTER parameter 4-152 

allocate considerations and 

restrictions 4-119 

allocate disk space 3-11 

ALLOCATE statement (S$MAINT) 
allocation of disk work space 4-123 
control statement summary 4-118 
DIRSIZE parameter 4-121 
function 4-118 
HISTORY parameter 4-122 
OBJECT parameter 4-126 
PACKO parameter 4-123 
parameter summary 4-120 
restrictions 4-119 
SOURCE parameter 4-124 
SYSTEM parameter 4-121 
TO parameter 4-121 
WORK parameter 4-122 

allocate work space for keysort 2-23 

allocation limit 4-121 

ALT statement ($ALT) 

ASSIGN parameter 4-7 

control statement summary 4-7 

PACK parameter 4-7 

parameter summary 4-8 

UNIT parameter 4-7 

VERIFY parameter 4-7 
alternate track assignment program 

ALT statement 4-7 

conditional assignment 4-9 

examples 4-10 

messages 4-11 

OCL considerations 4-10 

unconditional assignment 4-9 


Index X-1 


alternate track rebuild program 
examples 4-15 
OCL considerations 4-15 
REBUILD statement 4-12 
substitute data 4-14 
alternate tracks 
definition of 3-11 
file processing considerations 3-11 
location 3-11 
appendix A A-1 
appendix B_ B-1 
appendix C C-1 
area codes 
main data 3-14, 4-6, 4-218 
simulation 1-14, 1-21, 4-6 
ASCII parameter, FILE statement 1-51 
assign a class number to a program 
considerations and 
restrictions 4-196.3 
control statement 4-170 
Parameter description 4-184 
Parameter summary 4-174.2 
ASSIGN parameter ($ALT) 4-7 
ASSIGN statement 1-14 
considerations and restrictions 1-22 
contents 1-21 
example 1-21 
format 1-21 
function 1-21 


OCL 1-9 
Parameters 1-14 
FI. 1-21 
F2 1-21 
Ri 1-21 
R2 1-21 


placement 1-21 
assigning simulation areas 3-7 
assigning 5444 unit codes 3-7 
assignment of alternate tracks 

alternate track assignment 

program 4-7, 4-9 

disk initialization program 4-104 
assignment of simulation areas 3-7 
asterisk parameter (use in LOAD OCL 

statement) 1-75 

automatic file allocation 2-13, 2-23 
automatic message restart 2-70 
available simulation areas 3-7 


backup function 4-79 

basic assembler 2-22 

batch processing 2-56 

BLKL parameter, FILE statement 1-49 
braces C-1, 4-5 

brackets (C-1, 4-5 
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BSCA statement 1-9 
contents 1-23 
format 1-23 
function 1-23 
parameters 1-14 
parameters, line 1-23 
placement 1-23 
spooling considerations 1-23 
build a direct file 4-27 
building a new index 4-35 


calculating file size 
converting cylinder/track to track 
number B-7 
converting track number of cylinder 
track B-8 
main data area B-7 
number of tracks 
in a sequential file B-7 
in an indexed file B-7 
of disk track index B-7 
CALL statement 
contents 1-24 
example 1-24 
format 1-24 
function 1-24 
Parameters 1-14 
procedure name 1-14 
switch characters 1-14 
unit 1-14 
placement 1-24 
spooling consideration 1-24 
CALL statement, OCL 1-9 
CANCEL command C-2 
CANCEL OCC command C-2 
capital letters, numbers, and special 
characters 1-5, 4-5 
Capitalized words and letters 1-5, 4-5 
cataloging to an active library 2-39 
CCP assignment set 4-204 
CEND 4-129 
chain cleaning program 4-108 
chain-image area 
changing 4-108 
entering from 
source library 1-67 
system input device 1-67 
CHANGE command C-2.1 
CHANGE OCC command C-2.1 
change the support for cataloging to a 
Program pack 4-117 
changing a partition 1-72.1 
changing a temporary file to a scratch 
file 1-34 
changing procedure parameters 2-33 
changing punch device (see PUNCH statement) 
changing simulation area code 
assignments 3-9 


changing the configuration record 4-17 
changing the contents of the chain-image 
area 1-66 
changing the log device 1-79 
changing the name of a library entry 4-153 
changing the number of lines the printer 
will print per page 1-85 
changing the size of the object 
library 4-127 
changing the size of the source 
library 4-124 
changing the system input device 1-91 
changing 5444 unit code assignments 3-9 
CHAR format parameter for the IMAGE 
statement 1-67 
characters from the source library on 
disk 1-67 
characters from the system input 
device 1-67 
characters from the system input device, 
example 1-68 
characters to use when naming library 
entries 4-135 
checkpoint/restart 2-68 
choosing the designation of a library entry 
permanent 4-136 
temporary 4-136 
classify batch programs (see assign a class 
number to a program) 
cleaning the print chain 4-108 
clear initialization 4-100 
CLOSE parameter 1-19 
COBOL 2-21 
codes for main data areas 3-14, 4-6 
codes for simulation areas 3-14, 4-6 
coding rules 
/. 1-5 
/& 1-5 
* 1-7 
blanks 1-5 
braces 1-5 
brackets 1-5 
capitalized words 1-5 
commas 1-5 
continuation 1-6 
control statements 4-4 
hyphen 1-4 
keyword parameters 1-4 
numbers” 1-5 
OcL 
comment 1-7 
continuation 1-6 
statements beginning with // 1-5 
statements beginning with other than 
// 1-8 
positional parameters 1-5 
special characters 1-5 
underscore 1-5 
combinations of seven track 
specifications 1-54 
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comments” 1-7 

coding rules 1-7 

comment statement 1-99 

jobname_ 1-7 

stepname 1-7 
compatible disk access methods 2-18.2 
compilation date 4-134 
COMPILE statement 1-25 

contents 1-25 

example 1-26 

format 1-25 

function 1-25 


OcL 1-9 
parameters 1-14 
ATTR-> 1-26 


LINKADD- 1-25 
OBJECT 1-25 
SOURCE 1-25 
UNIT 1-25 
placement 1-25 
spooling considerations 1-26 
compiling a source program 
storing it in object library 2-30 
storing it in object library sample 
statement 2-31 
compress files high 4-78 
compress files low 4-78 
compress in place 4-127 
compressing files 4-78, 4-79 
conditional assignment of alternate tracks 
example 4-10 
incorrect data 4-9 
surface analysis 4-9 
configuration record program 4-17 
CONSOLE parameter 
LOG statement 1-81 
READER statement 1-91 
continuation (OCL) 1-6 
continuation, example 1-6 
control statement summary (system service 
programs) 
ACCESS statement ($COPY) 4-30 
ALLOCATE statement ($MAINT) 4-118 
ALT statement (SALT) 4-7 
ALTA statement (SRSALT) 4-212 
ASNP statement (SCNFIG) 4-18 
AUTHORIZE statement (SQCOPY) 4-170 
AUTST statement (SCNFIG) 4-18 
AUTWT statement ($CNFIG) 4-18 
BLANK statement($CNFIG) 4-18 
CATLG statement (SCNFIG) 4-18 
CEND statement (SMAINT) 4-129 
CLASSIFY statement (SQCOPY) 4-170 
CLEAR statement (SSCOPY) 4-217 
COMPRESS statement (SWVTOC) 4-241 
CONSOL statement (SCNFIG) 4-18 
COPY statement (SMAINT) 4-129 
COPYAREA statement (SSCOPY) 4-217 
COPYCTRL statement (S6QCOPY) 4-169 
COPYFILE statement (SCOPY) 4-29 
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control statement summary (system 
service programs) (continued) 

COPYFILES statement ($FCOMP) 4-80 
COPYIPL statement ($SCOPY) 4-217 
COPYPACK statement ($COPY) 4-29 
COPYPACK statement (SDCOPY) 4-62 
COPYPCHO statement ($QCOPY) 4-168 
COPYPRTO statement (SQCOPY) 4-168 
COPYOQ statement ($QCOPY) 4-170 
COPYRDRO statement ($QCOPY) 4-169 
COPYSP statement (SQCOPY) 4-168 
DEFCN statement ($CNFIG) 4-18 
DEFFN statement (SCNFIG) 4-18 
DELETE statement ($MAINT) 4-146 
DISPLAY statement ($LABEL) 4-110 
DISPLAY statement (SQCOPY) 4-169 
FORMAT statement ($CNFIG) 4-18 
FORMAT statement ($DELET) 4-72 
FSHARE statement ($CNFIG) 4-18 
HLTP statement ($CNFIG) 4-18 
INSERT statement (SMAINT) 4-150 
ITYPE statement (SCNFIG) 4-18 
LOGP statement (SCNFIG) 4-18.1 
MESSAG statement (SCNFIG) 4-18.1 
MODIFY statement (SMAINT) 4-150 
MOVE statement ($SCOPY) 4-217 
NAMES statement ($SCOPY) 4-217 
NEND statement (GMAINT) 4-129 
NEWNAME statement (SSCOPY) 4-217 
OUTDM statement (SCOPY) 4-30 
OUTPUT statement ($HIST) 4-94 
PRINT statement (SCNFIG) 4-18.1 
PRINT statement ($SHIST) 4-94 
PRIORITY statement (SCNFIG) 4-18.1 
QCOPY statement (SCNFIG) 4-18.1 
READY statement ($CNFIG) 4-18.1 
REBUILD statement ($BUILD) 4-12 
REMOVE statement ($DELET) 4-72 
REMOVE statement (SMAINT) 4-150 
RENAME statement ($MAINT) 4-153 
REPLACE statement (SMAINT) 4-150 
RESTORE statement (SQCOPY) 4-169 
SELECT statement (SCOPY) 4-29 
SHA statement (SCNFIG) 4-18.1 
SIZE statement (SCNFIG) 4-18.1 
SPCYL statement ($CNFIG) 4-18.1 
SPDSK statement (SCNFIG) 4-18.1 
SPEXT statement (SCNFIG) 4-18.2 
SPOPT statement (SCNFIG) 4-18.1 
SYIN statement (SCNFIG) 4-18.2 
SYPC statement ($CNFIG) 4-18.2 
SYPR statement (SCNFIG) 4-18.2 
TAPEFILES statement (SFCOMP) 4-80 
TSTAMP statement ($CNFIG) 4-18.2 
UIN statement (SINIT) 4-101 
VOL statement (SINIT) 4-101 
VOL statement ($TINIT) 4-234 

controlling $STRLOG E-2 


x-4 


conversion 
convert seven track tape 1-51 
cylinder-tracks B-8 
records-tracks B-7 
track number-cylinder number B-7 
copy a display of the status of the spool 
queues 
considerations and restrictions 4-194 
control statement 4-169 
Parameter description 4-181 
Parameter summary 4-174 
copy an index 4-35 
copy/dump program 
card input considerations 4-40 
card output considerations 4-41 
COPYFILE statement (see COPYFILE 
statement) 
copying multivolume files (see copying 
multivolume files) 
COPYPACK statement (see COPYPACK 
statement) 
diskette (3741) file consideration 4-39 
examples 4-42 
OCL considerations 4-41 
SELECT statement (see SELECT statement) 
tape file considerations 4-39 
use of 2-15 
copy jobs to or from the reader queue 
considerations and restrictions 4-192 
control statement 4-169 
parameter description 4-178 
Parameter summary 4-173 
copy selected job steps from one spool file 
to another 4-195 
considerations and 
restrictions 4-195 
control statement 4-170 
parameter description 4-183 
Parameter summary 4-174.1 
copy selected jobsteps from the print queue 
considerations and restrictions 4-184 
control statement 4-168 
parameter description 4-176 
Parameter summary 4-171 
copy selected jobsteps from the punch queue 
considerations and restrictions 4-190 
control statement 4-168 
parameter description 4-177 
Parameter summary 4-172 
COPY statement ($MAINT) 
control statement summary 4-129 
file-to-library 4-129 
FROM parameter 4-132 
function 4-128 
LIBRARY parameter 4-132 
library-to-card 4-131 
library-to-library 4-130 
library-to-printer/card 
consideration 4-139 
NAME parameter 4-132 


NEWNAME parameter 4-134 
PACKIN parameter 4-134 
PACKO parameter 4-134 
parameters 4-132 
reader-to-library 4-129 
RETAIN parameter 4-133 
TO parameter 4-133 
uses 4-128 
copy the entire spool file 
considerations and restrictions 4-184 
control statement 4-168 
parameter description 4-176 
parameter summary 4-171 
COPYFILE statement ($COPY) 
control statement summary 4-28 
DELETE parameter 4-36 
LENGTH parameter 4-36 
OMIT parameter 4-36 
OUTPTX parameter 4-34 
OUTPUT parameter 4-34 
parameter summary 4-31 
REORG parameter 4-36 
COPYIN 4-27, 4-33 
copying an entire area 4-34 
example 4-43 
copying an index 4-35 
copying files (SCOPY) 
example 4-42 
disk to tape 4-45 
tape to disk 4-46 
copying minimum system from one disk to 
another 4-130 
example 4-158 
copying multivolume files 
copying multivolume indexed files 4-38 
direct file attributes 4-38 
maintaining correct relative record 
numbers 4-38 
maintaining proper volume sequence 
numbers 4-38 
copying object program to F1, 
example 4-159 
COPYO 4-27 
COPYPACK considerations 4-34 
COPYPACK statement ($COPY) 
control statement summary 4-29 
FROM parameter 4-31 
PACKIN parameter 4-34 
PACKO parameter 4-34 
parameter summary 4-31 
TO parameter 4-31 
COPYPACK statement ($DCOPY) 
BACKUP parameter 4-64 
control statement summary 4-62 
FROM parameter 4-63 
PACK parameter 4-64 
parameter summary 4-63 
SYSTEM parameter 4-64 
TO parameter 4-63 
core index B-6 
CORE parameter for JOB statement 1-72 
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correcting characters on an alternate 
track 4-12 

correcting characters on an alternate 
track, example 4-15 

correcting index problems 4-35 

create a new index 4-35 

creating a source library 4-124 

creating an object library 4-126 

creating disk files 2-12 

cylinder assignment 3-6 

cylinder 0 format 3-12 


data area track requirements B-1 
DATA parameter for the REMOVE statement 
($DELET) 4-72 
DATE command C-2.1 
DATE OCC command C-2.1 
date of compilation 4-134 
DATE parameter 
FILE statement (OCL) 
disk 1-35 
tape 1-49 
REMOVE statement (SDELET) 4-72 
DATE parameter for the DATE statement 
(OCL) 1-27 
DATE statement 
contents 1-27 
example 1-28 
format 1-27 
function 1-27 
OCcL 1-9 
parameters 1-14 
placement 1-27 
spooling considerations 1-28 
date support 
job date 2-63 
jobstep date 2-63 
partition date 2-63 
system date 2-63 
default simulation area assignments 3-9 
DEFER parameter, FILE statement 1-46 
definition 
external buffers 2-9 
main data area 3-10 
object module 2-4 
simulation areas 3-6 
source programs 2-4 
volume 3-3 
DELETE parameter for the COPYFILE statement 
(SCOPY) 4-36 
DELETE statement (SMAINT) 
control statement summary 4-146 
FROM parameter 4-148 
function 4-146 
LIBRARY parameter 4-148 
NAME parameter 4-148 
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delete statement (SMAINT) (continued) 
PACKIN parameter 4-148 
parameters 4-148 
restrictions 4-147 
RETAIN parameter 4-148 
uses 4-146 
deleting a procedure parameter 2-33 
deleting a source library 4-125 
deleting an object library 4-127 
deleting library entries (SMAINT) 
entries of one type 4-146 
entries of one type, example 4-163 
entries with names beginning with certain 
characters 4-146 
example 4-162 
entry from a library 4-146 
entry from a library, example 4-162 
library entries 4-146 
temporary or permanent entries 4-146 
certain type 4-146 
contain characters 4-146 
same name 4-146 
deleting one of several files having the 
same name ($DELET) 4-75 
DENSITY parameter 
FILE statement 1-50 
VOL statement 4-235 
direct access storage 3-3 
direct file attributes 4-38 
direct file tracks B-7 
DIRSIZE parameter for ALLOCATE statement 
(SMAINT) 4-120, 4-121 
disk capacity 3-5 
disk data management 2-3 
disk FILE statement 1-29 
disk initialization program 
clear initialization 4-100 
CYLO initialization 4-101 
example 4-106 
force initialization 4-101 
messages 4-107 
OCL considerations 4-106 
primary initialization 4-101 
rename initialization 4-101 
UIN statement (see UIN statement) 
VOL statement (see VOL statement) 
disk requirements for data records B-2 
disk sort 2-22 
disk space allocation 
scratch files 3-10 
temporary or permanent files 3-10 
disk storage 3-1 
disk storage configurations 3-3 
diskette (3741) file considerations 4-39 
DISP parameter for the REBUILD 
statement 4-14 
DISPLAY command C-2.2 
DISPLAY OCC command C-2.2 
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DISPLAY statement ($LABEL) 
control statement summary 4-110 
LABEL parameter 4-110 
Parameter descriptions 4-111 
Parameter summary 4-111 
SORT-NAME parameter 4-111 
UNIT parameter 4-110 

displaying the spoo! queues 
considerations and restrictions 4-194 
control statement 4-169 
Parameter description 4-181 
Parameter summary 4-174 

doubly-defined files 2-18 

DTF (define the file) 2-17 

DUMP command C-2.2 

DUMP OCC command C-2.2 

dump/restore program ($DCOPY) 
COPYPACK statement 4-63 
FROM parameter 4-63 
OCL considerations 4-65 
TO parameter 4-63 

dumping disk to tape 4-62 


END control statement 4-5 
end-of-data (see /* statement) 
end-of-data pointer 4-208 
end-of-index pointer 4-208 
END parameter, FILE statement 1-50 
END statement 4-5 
entering OCC commands’ C-1 
entries with the same name 4-135 
ERASE parameter for the UIN 
statement 4-104 
extended restart 2-70 
external buffer support 

basic assembler 2-10 

COBOL 2-9 

disk sort 2-10 

FORTRAN 2-9 

RPG If 2-9 
external buffers 2-9 

definition of 2-9 

use of 2-9 
external indicators 1-94, 2-48 


file and volume label display program 
(SLABEL) 
DISPLAY statement 4-110 
examples 4-116 
meaning of VTOC information 4-113 
OCL considerations 4-111 
VTOC printout 4-116 


file compress program (SFCOMP) 4-78 
considerations and restrictions 4-83 
control statement summary 4-80 
examples 4-84 
move and copy function 

copy function 4-78 
move function 4-78 
OCL considerations 4-84 
parameter summary 4-80 
program description 4-78 

file delete program 
examples 4-75 
OCL considerations 4-75 
REMOVE statement 4-72 

file facilities 2-11 

file index tracks B-5 

file location on main data area 3-10 

file names 1-30, 1-46 

file names used in the FILE 

statement 1-30, 1-46 

file recovery 
control statement 4-30 
main data area 4-30 
simulation area 4-30 

file share area 2-18 

file sharing 2-16, 2-57 

FILE statement (disk) 


parameters 
contents 1-29 
DATE 1-29 


examples 1-36 
file names 1-30 
file processing considerations 1-39 
format 1-29 
function 1-29 
HIKEY 1-43 
LABEL 1-29 
LOCATION 1-29 
NAME 1-29 
PACK 1-29 
placement 1-29 
programs requiring specific file 
names 1-30 
RECORDS 1-29 
RETAIN 1-29 
SHARE 1-29 
specific file names 1-30 
spooling considerations 1-39 
TRACKS 1-29 
UNIT 1-29 
VERIFY 1-29 
FILE statement (disk), programs and file 
names 1-30 
FILE statement (multifile tape volumes) 
contents 1-57 
preposition tapes 1-58 
REEL parameter 1-62 
restrictions on use 1-58 
SEQNUM parameter 1-57 
spooling considerations 1-62 
standard labeled files 1-59 
unlabeled volumes 1-61 
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FILE statement (multivolume disk files) 
contents 1-40 
parameters 
HIKEY 1-43 
LOCATION 1-43 
PACK 1-41 
RECORDS 1-42 
RETAIN 1-43 
TRACKS 1-42 
UNIT 1-41 
FILE statement (muitivolume tape files) 
contents 1-55 
examples 1-56 
parameters 
REEL 1-55 
UNIT 1-55 
spooling considerations 1-56 
FILE statement (OCL) 
example 1-36 
file processing considerations 1-39 
FILE statement considerations (backup and 
restore) 4-83 
FILE statement considerations for 
multivolume files 1-55 


format 
disk 1-29 
tape 1-45 
function 
disk 1-29 
tape 1-45 
parameter 
ASCII 1-51 
BLKL 1-49 


CONVERT 1-51 
DATE, disk 1-35 
DATE, tape 1-49 
DEFER 1-51 
DENSITY 1-50 
END 1-50 

HIKEY 1-43 
HIKEY (packed) 1-44 
LABEL, disk 1-32 
LABEL, tape 1-48 
LOCATION 1-33 
NAME, disk 1-29 
NAME, tape 1-46 
PACK 1-31 
PARITY 1-51 
RECFM_ 1-50 
RECL 1-50 

REEL 1-48 
RETAIN, disk 1-34 
RETAIN, tape 1-49 
SEQNUM~ 1-52 
SHARE 1-36 
TRACKS or RECORDS 1-32 
TRANSLATE 1-51 
UNIT, disk 1-31 
UNIT, tape 1-47 
VERIFY 1-36 
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file statement (OCL) (continued) 
placement 
disk 1-29 
tape 1-45 
FILE statement (single volume tape files) 
contents 1-45 
format 1-45 
function 1-45 
parameter 
ASCII 1-45 
BLKL 1-45 
CONVERT 1-46 
DATE 1-45 
DEFER 1-46 
DENSITY 1-45 
END 1-45 
LABEL 1-45 
NAME 1-45 
PARITY 1-46 
RECFM_ 1-45 
RECL 1-45 
REEL 1-45 
RETAIN 1-45 
SEQNUM 1-46 
TRANSLATE 1-46 
UNIT 1-47 
placement 1-45 
FILE statement (tape) 
combinations of seven track 
specifications 1-54 
files names 1-46 
parameter applicability for nine 
track 1-53 
parameter applicability for seven 
track 1-53 
programs and file names 1-46 
programs requiring specific file 
names 1-46 
seven track considerations 1-52 
specific file names 1-46 
tape file statement summary 1-53 
FILE statement parameters 
device independent 1-17 
disk 1-15 
tape 1-16 
file-to-library copy function of library 
maintenance program 4-129 
files 
automatic allocation 2-13 
Creation 2-12 
definition 2-11 
disk files 2-12 
large indexed files 2-23 
location 2-13 
multifile tape volumes 2-25 
multivolume disk files 2-24 
multivolume tape files 2-25 
organization 
direct 2-11 
indexed 2-11 
sequential 2-11 
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files (continued) 
processing 
consecutive 2-11 
random 2-11 
sequential 2-11 
programming considerations 2-26 
SDTF (share define the file) 2-17 
services 2-15 
sharing files 
compatible access methods 2-17 
compatible disk access 
methods 2-18.2 
considerations and 
restrictions 2-18.1 
doubly-defined files 2-18 
DTF (define the file) 2-17 
file share area 2-18 
FSQE (file share queue element) 2-18 
work files 2-20 
files and subroutines (QCOPY) 4-185 
format of cylinder O 3-12 
format of data module 3-3 
format of OCL statement 
/. statement 1-96 
/& statement 1-95 
/* statement 1-100 
* statement 1-99 
ASSIGN statement 1-21 
BSCA statement 1-23 
CALL statement 1-24 
COMPILE statement 1-25 
DATE statement 1-27 
FILE statement 
device independent files 1-63 
multifile tape volumes 1-57 
multivolume disk files 1-40 
multivolume tape files 1-55 
single volume disk files 1-29 
single volume tape files 1-45 
HALT statement 1-65 
IMAGE statement 1-66 
JOB statement 1-71 
LOAD and LOAD* statement 1-75 
LOG statement 1-80 
NOHALT statement 1-82 
PAUSE statement 1-84 
PRINTER statement 1-85 
PUNCH statement 1-88 
READER statement 1-91 
RUN statement 1-92 
SWITCH statement 1-93 
format of volume 3-3 
FORMAT parameter for the IMAGE statement 
CHAR 1-66 
HEX 1-66 
MEM 1-66 
FORMAT statement for the file delete 
program 
example 4-77 
Purpose 4-72 
FORTRAN 2-21 
free up allocated, but unused space 4-71 


free up allocated, but unused space, 
example 4-77 

FROM parameter 
ACCESS statement (SCOPY) 4-33 
CLEAR statement (SSCOPY) 4-222 
COPY statement (SMAINT) 4-132 
COPYAREA statement ($SCOPY) 4-219 
COPYFILES statement (SFCOMP) 4-80 
COPYIPL statement($SCOPY) 4-223 
COPYPACK statement (SCOPY) 4-31 
COPYPACK statement (SDCOPY) 4-63 
COPYSP statement (SQCOPY) 4-176 
DELETE statement (SMAINT) 4-148 
MODIFY statement (SMAINT) 4-151 
MOVE statement ($SCOPY) 4-224 
RENAME statement (BMAINT) 4-153 
SELECT KEY statement (SCOPY) 4-36 
SELECT RECORD statement (SCOPY) 4-37 
TAPEFILES statement (SFCOMP) 4-81 

FSQE (file share queue element) 2-18 

function of OCL statements (see desired 

statement type) 
function of system service programs 4-3 


gaps in the object library 4-127 
general coding rules 1-4 

general coding rules (see coding rules) 
general information, model 15D xi 
greater than 48K programs 2-9 


HALT command C-3 

HALT OCC command C-3 

HALT statement 1-17, 1-65 

HALT statement (OCL) 1-10 

halt 90 1-84 

halt 91 1-84 

HEX format parameter for the IMAGE 
statement 1-66 

HIKEY parameter for the FILE 
statement 1-43 

HIKEY parameter for the FILE statement, 
packed 1-44 

HISTORY parameter, ALLOCATE statement 
(SMAINT) 4-122 

HOLD command C-3 

how to change the configuration 
record 4-17 

how to request $OCOPY from a 
terminal 4-205 

how to use this manual ix 

how to write control statements 4-4 
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IBM System/3 standard character set A-1 
ID parameter, VOL statement 
($TINIT) 4-235 
IDELETE command C-3 
{MAGE statement 1-17 
IMAGE statement (OCL) 1-10 
IMAGE statement (OCL), spooling 
considerations for 1-68 
IMAGE statement parameters 1-17 
INCLUDE statement 1-17 
example 1-70 
function 1-69 
OCcL 1-10 
table of parameters 1-17 
including comments in OCL statement 1-7 
including system programs in a 
library 4-121 
incorrect data 4-12, 4-16 
INCR parameter of MODIFY statement 4-151 
index area track requirements B-4 
index problems 4-35 
indexed file tracks B-5 
INDEX40 2-24, 4-209 
INDEX45 2-24, 4-209 
indicate the number of lines per page the 
printer will print 1-85 
indicator-settings parameter for the SWITCH 
statement 1-93 
initial program load (IPL) 2-42, 3-13 
initializing disks 4-100 
initializing tapes 4-233 
input device, changing (see READER 
statement) 
input file name 4-27 
inquiry program 2-69 
INSERT statement (SMAINT) 
control statement summary 4-150 
functions 4-149 
parameters 4-152 
inserting source library statements 4-149 
interchanging data modules 3-6 
interval timer 2-63 
introduction = xi 
introduction to OCL statements 1-3 
introduction-what is OCL 1-3 
IPL (initial program load) 2-42, 3-13 


job and job step classification 
with nested procedures 2-47 
without procedures 2-46 

job and jobstep processing 2-44 

job mode 2-45 

job processing example 2-46 

JOB statement 1-71 

JOB statement (OCL) 1-10 

JOB statement parameters 1-18 

job stream 2-48 

job stream, delimiters 1-96 
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job stream, relationship to OCL 1-3 
job stream, sample 1-3 

jobname in JOB OCL statement 1-71 
jobstep mode 2-44 


KEEP command OC-4 
KEEP OCC command OC-4 
keysort workspace 2-24 
keyword 1-4 

keyword parameter 1-3 


LABEL parameter 
DISPLAY statement 4-110 
FILE statement 
disk 1-32 
tape 1-45 
REMOVE statement 4-72 
labeled tapes 2-26 
length of names given to library 
entries 4-135 
LENGTH parameter 
COPYFILE statement 4-36 
REBUILD statement 4-14 
libraries 
cataloging to active program packs 2-39 
all program packs 2-39 
CCP program packs 2-39 
No program packs 2-39 
user considerations 2-41 
definition 2-26.1 
location 2-29 
object 2-27 
procedures 2-32 
nested 2-35 
source 2-26.1 
library directory printouts 4-141 
object library 4-142 
source library 4-141 
system directory 4-145 
library entries, removing 
temporary 4-119, 4-136 
library entry retrieval subroutine D-1 
library facilities 2-26.1 
library maintenance 
allocate considerations and 
restrictions 4-119 
copy considerations and 
restrictions 4-131 
delete considerations and 
restrictions 4-147 
modify considerations and 
restrictions 4-149 
rename considerations and 
restrictions 4-153 


library maintenance program 
ALLOCATE statement (see ALLOCATE 
statement) 
COPY statement (see COPY statement) 
DELETE statement (see DELETE statement) 
examples 4-156 
library description, use of disk 
space 4-117 
MODIFY statement 4-150 
multiprogramming considerations and 
restrictions 4-119 
OCL considerations 4-155 
RENAME statement (see RENAME statement) 
LIBRARY parameter 
COPY statement 4-129 
DELETE statement 4-146 
MODIFY statement 4-150 
RENAME statement 4-153 
library-to-card considerations 
(SMAINT) 4-139 
library-to-library considerations 
(SMAINT) 4-138 
library-to-printer considerations 
(SMAINT) 4-139 
library, object (see object library) 
library, source (see source library) 
linking SUBR15 with assembler D-5 
linking SUBR15 with RPG Il D-2 
LIST parameter of MODIFY statement 4-151 
listing source library statements 4-149 
LOAD * programs 2-44 
LOAD * statement 1-75 
LOAD * statement (OCL) 1-11 
load modules 2-5 
LOAD statement 1-75 
LOAD statement (OCL) 
* parameter 1-75 
example 1-77 
format 1-75 
function 1-75 
placement 1-75 
program-namel parameter 1-76 
Program-name2 parameter 1-76 
stepname entry 1-75 
switch characters 1-76 
unit] parameter 1-76 
unit2 parameter 1-77 
LOAD statement parameters 1-18 
loading and running programs 2-43 
loading programs from a file 1-75 
loading programs from disk 
DATE statement 1-27 
HALT statement 1-65 
IMAGE statement 1-66 
JOB statement 1-71 
LOAD statement 1-75 
NOHALT statement 1-82 
sample job streams 2-48 
loading TRLOG_ E-1 
location of files on main data area 3-10 
location of object library 2-29 
location of scratch files 3-10 


location of source library 2-27 

location of system pack 3-14 

LOCATION parameter for the FILE 
statement 1-43 

log device 1-79 

LOG statement (OCL) 1-10 

LOG statement parameters 1-18 


magnetic tape (see tape, magnetic) 
main data area 
capacity 3-5 
codes 3-14, 4-6, 4-218 
definition of 3-10 
use of 3-10 
main storage usage 2-71 
maintain the AUTHORIZ file 
authorization change records 4-196 
authorization field 
position 1 4-196.1 
position 2 4-196.1 
positions 3 and 4 4-196.2 
authorization file 4-196 
change authorization record 4-196.3 
considerations and 
restrictions 4-196 
control statement 4-170 
create authorization record 4-196.3 
delete authorization record 4-196.3 
parameter description 4-183 
parameter summary 4-174.2 
maintain the authorize file 
(AUTHORIZE) 4-196 
maintaining correct record number 
{multivolume file) 4-38 
maintaining volume sequence numbers 
(multivolume file) 4-38 
maximum number of assigned simulation 
areas 3-9 
maximum number of contro! statements in a 
procedure 2-32 
maximum number of files in SWA 2-15 
maximum number of levels that can be nested 
together 2-37 
maximum number of volumes 2-24 
maximum program size 2-8 
meaning of VTOC information 4-112 
MEM, format parameter for the IMAGE 
statement 1-17 
message options 2-19 
messages 
alternate track assignment program 4-11 
disk initialization program 4-107 
dump/restore 4-66, 4-77 
tape initialization 4-236 
MFCM1 parameter 
PUNCH statement 1-88 
READER statement 1-91 
MFCM2 parameter 
PUNCH statement 1-88 
READER statement 1-91 
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MFCU1 parameter 
PUNCH statement 1-88 
READER statement 1-91 
MFCU2 parameter 
PUNCH statement 1-88 
READER statement 1-91 
minimum number of assigned simulation 
areas 3-9 
Model 15D general information — xi 
Model 15D introduction xi 
MODIFY statement (SMAINT) 
control statement summary 4-150 
functions 4-149 
Parameters 4-151 
restrictions 4-149 
moving object library 4-119 
multifile tape volumes 2-25 
null files on tape 2-25 
labeled tapes 2-26 
unlabeled tapes 2-25 
multifile volumes, tapes 1-57 
multiprogramming 
considerations and restrictions 2-57 
examples 2-60 
operation 2-52 
operator control commands 2-54 
sharing files 2-57 
multivolume files 


copying 4-38 
disk 1-40 
tape 1-55 


multivolume tape files 2-25 


name of entry to be deleted 4-148 
name of entry to be renamed 4-154 
NAME parameter 
COPY statement 4-132 
DELETE statement 4-148 
FILE statement 
device independent 1-63 
disk 1-30 
tape 1-46 
IMAGE statement 1-67 
RENAME statement 4-154 
NAME360 parameter, VOL statement 4-105 
naming library entries 
characters to use 4-135 
length 4-135 
restrictions 4-135 
NEND 4-129 
nested procedure restart 2-38 
nested procedures 
advantages 2-43 
examples 2-35 
maximum number of levels that can be 
nested 2-37 
rules 2-37 
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new names to be given to an entry, 
rules 4-135 

NEWNAME parameter 

COPY statement 4-134 

RENAME statement 4-154 
NOHALT command C-3 
NOHALT statement 

OCL 1-11 

OCL, severity codes for 1-83 

Parameters 1-19 
NOIDELETE command C-4 
normal procedure call 2-32 
null files on tape 2-25 
number of alternate tracks on a disk 3-11 
number of available simulation areas 3-7 
number of files in SWA 2-15 
number of tracks in a direct file B-7 
number of tracks in a sequential file B-7 
number of tracks in an indexed file B-7 
NUMBER parameter for the IMAGE 

statement 1-67 


object library 
changing size 4-127 
creating 4-126 
deleting 4-127 
gaps 2-29, 4-127 
location 2-29 
maintaining 2-29 
Organization 2-28 
physical characteristics 
directory 2-27 
size 2-27 
reorganizing 4-127 
object modules 2-4 
OBJECT parameter 
ALLOCATE statement 4-126 
COMPILE statement 1-25 
OCC commands C-1 
OCcL 
code parameter 1-4 
coding rules (see coding rules) 
data parameter 1-4 
input job stream 1-3 
introduction 1-3 
job stream 1-3 
length 1-6 
means of supplying 1-3 
parameters 1-4 
special characters (see coding rules) 
spooling considerations 1-7 
statement 
example 1-4 
identifiers 1-4 
OCL considerations for spooling and 
multiprogramming 1-7 


X-12 


OCL considerations for system service 


programs 
alt track assignment program 4-10 
alt track rebuild program 4-15 
chain cleaning program 4-108 
configuration record program 4-24.2 
copy/dump program 4-41 
disk initialization program 4-101 
dump/restore program 4-65 
file and volume label display 

program 4-116 

file compress program 4-84 
file delete program 4-75 
library maintenance program 4-155 
recover index program 4-210 
simulation area program 4-225 
spool file copy program 4-196.6 
system history area display program 4-94 
tape error summary program 4-240 
tape initialization program 4-236 
VTOC service program 4-242 


OCL parameters table 1-14 
OCL statement, coding notes 1-9 
OCL statements 


/. 1-13 

/& 1-12 

* 1-13 
ASSIGN 1-9 
BSCA 1-9 
CALL 1-9 
CODE MEANING. 1-14 
COMPILE 1-9 
DATE 1-9 
FILE 1-9 
HALT 1-10 
IMAGE 1-10 
INCLUDE 1-10 
JOB 1-10 
LOAD 1-10 
LOAD * 1-11 
LOG 1-11 
NOHALT 1-11 
PAUSE 1-11 
PRINTER 1-11 
PUNCH 1-12 
READER 1-12 
RUN 1-12 
SWITCH 1-12 


OMIT parameter for the COPYFILE 
statement 4-36 

operator control commands C-1 
operator control commands (OCC) for 
multiprogramming 


cancel 2-54 
change 2-54 
display 2-54 
dump 2-54 
halt 2-54 
nohalt 2-55 
pty 2-55 


operator control commands (OCC) for 
muitiprogramming (continued) 
reader 2-55 
set 2-55 
start 2-56 
stop 2-56 
Operator control commands (see OCC) 
options to messages 2-19 
organization of the object library 2-28 
organization of the source library 2-27 
OUTDM statement 4-30 
OUTPTX parameter for the COPYFILE 
statement 4-34 
output file name 4-27 
OUTPUT parameter for the COPYFILE 
statement 4-34 
OUTPUT statement ($HIST) 4-94 
overlay linkage editor 2-5, 2-23 
overlays 
areas 2-7 
memory resident 2-7 
segments 2-7 


PACK parameter 
ALT statement 4-8 
ALTA statement 4-213 
CATLG statement 4-22.2 
FILE statement 1-31 
REBUILD statement 4-14 
REMOVE statement 4-74 
VOL statement 4-105 

parameter 
keyword 1-4 
table of parameters 1-14 

parameter summary, system service programs 
ACCESS statement ($COPY) 4-33 
ALLOCATE statement ($MAINT) 4-120 
ALT statement (SALT) 4-8 
ALTA statement (SRSALT) 4-213 
ASNP statement (SCNFIG) 4-18 
AUTHORIZE statement (SQCOPY) 4-174.2 
CLASSIFY statement (SQCOPY) 4-174.2 
CLEAR statement ($SCOPY) 4-219 
COMPRESS statement (SWVTOC) 4-241 
COPY statement (SMAINT) 4-132 
COPYAREA statement ($SCOPY) 4-177 
COPYCTRL statement (SQCOPY) 4-174 
COPYFILE statement ($COPY) 4-29 
COPYFILES statement (SFCOMP) 4-80 
COPYIPL statement ($SCOPY) 4-221 
COPYPACK statement (SCOPY) 4-29 
COPYPACK statement (SDCOPY) 4-63 
COPYPCHO statement (SQCOPY) 4-172 
COPYPRTQ statement (SQCOPY) 4-171 
COPYQ statement (SQCOPY) 4-174.1 
COPYRDRQ statement ($QCOPY) 4-173 
COPYSP statement (SQCOPY) 4-171 
DELETE statement (SMAINT) 4-146 
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parameter summary, system service programs 
(continued) 
DISPLAY statement ($LABEL) 4-110 
DISPLAY statement (SQCOPY) 4-174 
INSERT statement (SMAINT) 4-152 
KEY statement ($COPY) 4-28 
MODIFY statement (SMAINT) 4-151 
MOVE statement (SSCOPY) 4-220 
NAMES statement ($SCOPY) 4-220 
NEWNAME statement ($SCOPY) 4-220 
OUTDM statement (SCOPY) 4-30 
OUTPUT statement ($HIST) 4-94 
PRINT statement (SHIST) 4-94 
REBUILD statement ($BUILD) 4-13 
REMOVE statement ($DELETE) 4-72 
RENAME statement ($MAINT) 4-154 
REPLACE statement (SMAINT) 4-152 
RESTORE statement (SQCOPY) 4-174 
SELECT statement (SCOPY) 4-28 
UIN statement (SINIT) 4-101 
VOL statement, (SINIT) 4-102 
VOL statement, ($TINIT) 4-235 
PARITY seven track tape 1-51 
partition changing 1-72.1 
PARTITION parameter for JOB 
statement 1-72.1 
partition(s) 
multiprogramming 2-57 
size 2-8 
PAUSE statement 
function 1-84 
parameters 1-19 
PAUSE statement OCL 1-11 
permanent file, deleting 1-34 
placement of OCL statements (see the 
desired statement type) 
positional operands C-1 
primary initialization 4-100 
primary initialization, example 4-106 
print compilation date 4-134 
print configuration record 4-18.1 
PRINT parameter for device independent file 
statement 1-64 
PRINT statement ($HIST) 4-94 
printer chain image (see IMAGE statement) 
printer forms (see PRINTER statement) 
PRINTER OCL statement 
ALIGN parameter 1-19 
CLOSE parameter 1-19 
COPIES parameter 1-19 
DEFER parameter 1-19 
DEVICE parameter 1-19 
FORMSNO parameter 1-19 
LINES parameter 1-19 
QCOPY parameter 1-19 
PRINTER statement 1-11, 1-85 
PRINTER statement parameters 1-19 
Printing compilation date 4-134 
printing file information from the 
VTOC 4-109 
printing files 4-27 
printing files, example 4-44 


Index X-13 


printing library directories 4-139 
printing library directories, 
example 4-158 
printing records using record keys 4-36 
printing records using relative record 
numbers 4-37 
printing the entire contents of the 
VTOC 4-110 
priority parameter 1-18 
priority parameter, JOB statement 1-72 
procedure-name parameter for the CALL 
statement 1-14, 1-24 
procedure override statement 2-33 
procedures 
adding a missing parameter 2-33 
adding a statement 2-33 
changing procedure parameters 2-33 
deleting a procedure parameter 2-33 
example 2-34 
inserting statements 2-33 
listing 4-149 
modifying 2-33 
nested 2-35 
normal procedure call 2-32 
procedure override statement 2-33 
removing statements 4-149 
replacing statements 4-149 
processing large indexed files 2-23 
processing multivolume files 2-24 
program function 4-3 
program load switch 3-14 
program name 4-3 
program-name parameter for the LOAD 
statement 1-18, 1-76 
program pack definition 2-39 
program pack protection 2-39 
program reference information F-1 
program(s) 
concepts 2-4 
execution 2-42 
size 2-8 
storing 2-30 
programming considerations E-2 
programs and file names 1-30, 1-46 
programs requiring specific file 
names 1-30, 1-46 
protect program packs 2-39 
PTY command C-4 
PUNCH statement 1-88 
PUNCH statement (OCL) 1-12 
PUNCH statement parameters 1-19 


QCOPY parameter 1-19 


queues 
print 2-67 
punch 2-67 
reader 2-67 


read SQCOPY control statements from a file 
considerations and restrictions 4-194 
control statement 4-169 
parameter description 4-181 
Parameter summary 4-174 
READER command C-4 
READER OCC command C-4 
READER statement 1-91 
READER statement, (OCL) 1-12 
READER statement, parameters 1-20 
reader-to-library copy function, 
$MAINT 4-137 
reassign a 5444 unit code and change 
catalog support 4-25 
reassign all 5444 unit codes for three 
Partitions 4-25 
reassign alternate track program 4-212 
reassign one 5444 unit code in a 
Partition 4-25 
reassigning simulation areas 1-21, 3-9 
REBUILD statement ($BUILD) 
control statement summary 4-12 
DiSP parameter 4-14 
LENGTH parameter 4-14 
PACK parameter 4-13 
Parameter summary 4-13 
TRACK parameter 4-14 
UNIT parameter 4-13 
RECFM parameter, FILE statement 
(tape) 1-50 
RECL parameter, FILE statement 
(tape) 1-50 
RECORDS parameter for the FILE statement 
(disk) 1-32 
records-tracks conversion B-7 
recover files (SCOPY) 2-15, 4-41 
recover index program 2-15, 4-208 
REEL parameter 
FILE statement 1-48 
VOL statement 4-235 
related publications _ ii 
relationship of OCL to the job stream 1-3 
relative location of each 3344 
volume 3-10 
RELEASE command C-4 
RELEASE OCC command C-4 
REMOVE statement ($DELET) 
control statement summary 4-72 
DATA parameter 4-74 
DATE parameter 4-74 
LABEL parameter 4-74 
PACK parameter 4-74 
parameter summary 4-73 
UNIT parameter 4-74 
REMOVE statement ($MAINT) 
control statement summary 4-150 
functions 4-149 
Parameters 4-152 
removing files from a disk 4-71 
removing gaps from between files 4-78 
removing source library statements 4-149 
removing temporary library entries 4-146 


RENAME statement (SMAINT) 
control statement summary 4-153 
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